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1. Einleitung 


Dieses Buch wendet sich an den fortgeschrittenen Apple Pascal Pro¬ 
grammierer. Es soll kein Lehrbuch sein, vielmehr sollen hier die 
Tips und Techniken beschrieben werden, die es ermöglichen, das 
System voll auszunutzen. Es bietet das notwendige Wissen, um auch 
intern in das System einzugreifen. Es gibt darüber wenig Litera¬ 
tur, da dies im Grunde genommen der Pascal-Philosophie wider¬ 
spricht. Jedoch stößt man leicht an Grenzen, die es eigentlich 
garnicht geben müßte. Man will Dinge realisieren, die z.B. in 
Applesoft-Basic möglich und verbreitet sind. Hier schränkt das 
System den Programmierer ein. Hier setzt dieses Buch an, indem das 
Know-How vermittelt wird, daß eben nicht in den Handbüchern steht. 


Das Buch ist in drei Abschnitte gegliedert. Im Ersten wird auf das 
Betriebssystem eingegangen. Es wird beschrieben, wie man direkten 
Zugriff auf die Diskette und auf das Directory erhält. Es wird 
eine Brücke geschlagen zwischen Apple-DOS 3.3 und dem Pascal-Be¬ 
triebssystem. Schließlich wird auf das Format der Filetypen einge¬ 
gangen und ein neuer hinzugefügt. 

Der zweite Abschnitt geht näher auf die Programmierung in Pascal 
ein. Hier ist eine Zusammenstellung aller Systemroutinen und deren 
Adressen enthalten. Mit erweiterten "PEEK/POKE" Routinen erhält 
man Zugriff auf die internen Systemvariablen. Es wird beschrieben, 
wie man den Tastaturpuffer umgeht, und wie man Zeichen in diesen 
ohne Tastatureingabe setzt. Schließlich wird dargestellt, wie man 
auch unter Pascal das Drücken der Reset-Taste abfangen kann. 

Der dritte Abschnitt geht auf Grafik und Text ein. Es werden Pro¬ 
gramme vorgestellt zum Editieren von Grafiken und zum Verändern 
des Graphikzeichensatzes. Schließlich wird die unter Basic bekannte 
Blockgrafik auch in Pascal ermöglicht, wobei auch Shapes reali¬ 
siert werden. Es wird ein Mangel des Text-Editors beseitigt, und 
es wird ein Programm zum schnellen Messen der Textgröße verwirk¬ 
licht . 

In den Kapiteln wird zunächst geschildert, welches Problem gelöst 
werden soll, und wie der Weg dorthin aussieht. Daran schließt sich 
ein fertiges Programmlisting an. Im Zusammenhang mit den Erläute¬ 
rungen sollte es dem Programmierer möglich sein, die Programme 
speziell zu verändern, oder in seinen Projekten weiterzuverwenden. 

Es soll an dieser Stelle darauf hingewiesen werden, daß das Ein¬ 
greifen in das System nicht der Pascal-Philosophie entspricht. Sie 
fordert, daß ein Programm, daß auf dem Rechner A unter Pascal 
läuft, auf den Rechner B ohne Anpassungen übertragen werden kann. 
Verwendet man die hier geschilderten Tricks, so wird dies nicht 
immer der Fall sein. 

Wie der Leser mit diesem Buch umgeht, bleibt ihm überlassen. Es 
ist nicht nötig, das Buch von vorne nach hinten durchzuarbeiten. 
Es ist jedoch zu empfehlen, zunächst den erläuternden Text in 
jedem Kapitel zu lesen und dann erst das Programm einzutippen. 

Dabei viel Spaß ! 
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2. Utilities für das Betriebssystem 


In den folgenden Kapiteln sollen einige Utilities vorgestellt wer¬ 
den, die die Struktur und die Feinheiten des Pascal Operating Sys¬ 
tems (im folgenden "POS" genannt) ausnützen, und damit neue Möglich¬ 
keiten bieten. Es geht hier ausschließlich um die Arbeit mit den 
Disk-Laufwerken, d.h. um die Behandlung von Files und Daten auf Dis¬ 
ketten. Voraussetzung ist, daß dem Leser die Arbeitsweise von POS 
bekannt ist, und er mit den Dienstprogrammen, wie Editor oder Filer 
umgehen kann. 


2 . 1 Block—Editor 

Disketten sind gewöhnlich in sogenannte Blöcke und Sektoren einge¬ 
teilt. Sie stellen die kleinste Dateneinheit dar, die von der Floppy 
gelesen werden kann. 


Mit Sektoren bezeichenen wir die Datenmenge, die auf einmal von der 
Diskette gelesen wird. Sie ist größtenteils von dem verwendeten 
Laufwerk abhängig. Ein logischer Block ist die Datenmenge, mit der 
das Betriebssystem arbeitet. Diese beiden Einheiten sind von einan¬ 
der unabhängig und müssen nicht die gleiche Größe haben. Es ist Auf¬ 
gabe des Betriebssystems, dafür zu sorgen, daß die richtige Anzahl 
von Sektoren für einen logischen Block gelesen wird. 


Mit logischen Blöcken ist die Datenmenge gemeint, die vom Betriebs¬ 
system auf einmal gelesen wird. Die Größe dieser Blöcke hängt vom 
verwendeten Betriebssystem ab. So gibt es Blöcke, die 128 Byte ent¬ 
halten (z.B. CP/M), das Apple-DOS 3.3 verwendet Blöcke mit 256 Bytes 
und POS schließlich kennt 512 Bytes große Diskettenabschnitte. Es 
gibt unter anderen Betriebssystemen auch größere Einheiten, wie 1024 
Bytes. 


In unserem Fall, der Arbeit mit einer Apple-Maschine beträgt die 
Sektorengröße des Laufwerks 256 Bytes und die der logischen Blöcke 
von POS 512 Bytes. Uns interessiert im folgenden nur die Verwendung 
von Blöcken. Das Umrechnen in Sektoren überlassen wir dem Betriebs¬ 
system. 


Mit einem Block-Editor wollen wir es uns ermöglichen, auf jedes Byte 
eines Blocks einer Pascal-Diskette zuzugreifen, es zu verändern und 
den Block wieder zurückzuschreiben. Wir können damit die Struktur 
der Diskettenorganisation erforschen, oder wir können Veränderungen 
in Programmen vornehmen. Bei letzterem liegt unser Augenmerk darauf, 
daß z.B. in einem größeren Programm eine falsch geschriebene Bild¬ 
schirmmeldung ohne Neu-Compi1ierung berichtigt werden kann. Änderun¬ 
gen in den Programmen selber sollten nicht durchgeführt werden. 


Unsere allgemeine Zielsetzung steht nun fest, wir sammeln nun, was 
wir von unserer Lösung erwarten. 


Wir wollen eine Ausgabe des Block in hexadezimaler Schreibweise und 
in ASCII, d.h in alphanumerischen Zeichen (ASCII = American Standard 
Code for Information Interchange) beinhaltet. Dann wollen wir natür¬ 
lich einen beliebigen Block lesen und schreiben können. Weiterhin 
sollte der ganze Block mit einem bestimmten Wert zu füllen und 
schließlich jedes einzelne Byte zu verändern sein. 
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Der Editor soll einen guten Überblick über einen Block bieten. Also 
muß das Schirmbild so gut wie möglich sein. Wir haben 512 Bytes in 
hexadezimaler Schreibweise auszugeben. Da diese zusammen mit einer 
ASCII-Ausgabe nicht genug Platz auf dem Bildschirm haben, müssen wir 
die Ausgabe teilen. Es werden immer 256 Bytes gleichzeitig darges¬ 
tellt. Der Benutzer hat dann über ein Kommando die Möglichkeit, 
zwischen der ersten und der zweiten Hälfte hin und her zu schalten. 

Die 256 Bytes werden in 16 Zeilen zu je 16 Bytes darstellt. Da auch 
eine ASCII-Ausgabe verlangt wird, hängen wir einen 16 Zeichen langen 
String an. Am Anfang der Zeile steht eine Adresse, die die Position 
der Bytes in dem 512 Bytes großen Feld angibt. Damit ergibt sich 
folgendes Zeilenlayout: 


000: 00 01 02 03 04 05 06 .. 0C 0D 0E 0F !"tt$%&'()0*=! "#$ 

Pos. Bytes Pos+0..15 16 Zeichen in ASCII 


Wir haben also schon 16 Zeilen belegt, es bleiben uns noch 8 Zeilen 
übrig, die wir frei verwenden können. Eine Zeile nehmen wir als 
Menüzeile, eine als Informationszeile und eine als Eingabezeile. 

Um die Information lesen und schreiben zu können benutzen wir die 
Standard-Prozeduren "UNITREAD" und "UNITWRITE". Im Pascal-Handbuch 
ist die Bedeutung der Parameter erläutert. Wir können eine vom 
Benutzer angegebene Blocknummer einsetzen und den Inhalt des Blocks 
in ein Feld einiesen. 

Das Füllen des Blocks mit einem bestimmten Wert ist einfach. Der 
Benutzer gibt eine Zahl ein, das ARRAY wird mit diesem Wert aufge¬ 
füllt, und der Benutzer braucht nur noch den Block zurückzuschrei¬ 
ben . 


Zum Verändern einzelner Bytes ist es nötig, daß der Benutzer angibt, 
welches Byte er ändern will, und einen Wert, der diesem Byte zuge¬ 
wiesen werden soll. Daraufhin wird das Feld geändert und auf dem 
Schirm die hexadezimale und die ASCII-Ausgabe erneuert. 

Schließlich werden noch zwei zusätzliche Kommandos eingebaut. Als 
erstes ein Kommando zum Verlassen des Programms und dann eine Hilfs- 
Funktion, die eine Kommandoliste ausgibt. 


Wichtige Variablen 


"BLOCK" : 512 Byte großes Feld zur Aufnahme eines Blocks 
Wichtige Prozeduren 

"HOLECHAR" : Liest ein Zeichen von der Tastatur ein, 

das aus "OKSET" sein muß. So werden 
schon bei der Eingabe nicht vorhandene 
Kommandos ausgeschlossen. 

"HOLESTRING" : Liest einen String von der Tastatur 

ein. Die Zeichen müssen aus "ALLOWED" 
sein und die Eingabe hat die maximale 
Länge "LEN". 


"BYTTOHEX" : Wandelt ein Byte in einen String 
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"HEXTOINT” 


”LESEBLOCK" 

"SCHREIBBLOCK 


hexadezimaler Schreibweise um. 

Wandelt einen String, der eine 

hexadezimale Zahl enthält in einen 
Integerwert um. 

Liest mit "UNITREAD” einen Block von 
der Diskette in "BLOCK" ein. 

Schreibt "BLOCK" mit "UNITWRITE" in 
einen Block auf der Diskette. 


Kommando1is te 


" 0 " 

"U" 

"L" 

"S" 

"N" 

"A" 


„V" 

"F" 

? 

" /" 
"E" 


obere 256 Bytes des Blocks anzeigen 

untere 256 Bytes des Blocks anzeigen 

einen Block von der Diskette lesen 

den Block auf die Diskette schreiben 

den gleichen Block nochmals lesen 

den Block an die gleiche Stelle auf der Diskette 

zurückschreiben 

nächsten Block lesen 

Block davor lesen 

ein Byte verändern 

Block mit einem Wert füllen 

Kommandoliste ausgeben 
Blockeditor verlassen 


Progr summ " B LCD I T . TEXT " 

Programm blockedit; 
type 

setofchar = set of char; 


var 

home,cr,bs,eol,bell : char; 

hexdigit : packed arrayCO.,153 of char; 

block:packed arrayCÜ..5113 of 0..255; 

blkno:integer; 

c:char; 

cmdset:setofchar; 
oben:boolean; 


procedure init; -C Initialisiert Variablen und bringt den > 
var i:integer; { Darstellungsrahmen auf den Bildschirm > 
begin 

eol:=chr(29); 
bell:=chr(7); 
cr:=chr(13); 
bs:=chr(8); 
home:=chr(12); 


hexdigit :='0123456789ABCDEF'; 

cmdset:*C'0','o',' U',' u','L','1',' 3 ' »'s','n','A' 

/+/ / i #a/ 1'-' »'V' ,'v' ,'F' ,'f' ,'E' ,'e' /?' 

write(home); 


A> i 

/' 3; 


gotoxy(0,2); 

writeC' Adr 00 01 02 03 04 05 06 07 08 09 0A OB 0C 0D 0E 0F'); 


gotoxy(0,4); 

for i:= 0 to 15 do 


8 



UTILITIES Betriebssystei 


writelnC' ' ,hexdigitCiD,'CK ); 
blkno:=0; 
end; 

function hole_char(okset:setofchar):char; -C liest ein Zeichen ein, daa > 
var I in okset enthalten sein mu"' > 

ch s char; 
gut : boolean; 
begin 
repeat 

read(keyboard,ch); 
if eoln(keyboard) then ch:=cr; 
gut := ch in okset; 
if not gut then write(bell) 

eise if ch in L' '..chr(125)D then write(ch); 
until gut; 
hole_char:=ch; 
end; 

procedure warte_auf_ret; -C Wartet auf die Eingabe eines returns > 

var cschar; 

begin 

gotoxy(0,23); 

write('Bitte <ret> druecken'); 
c:=hole_char(CcrD); 
end; 

procedure fehler; < Gibt Fehlermeldung aus > 

var i:integer; 

begin 

gotoxy(0,21); 

write(bell,'*#* I/O Fehler ***'); 
for is= 1 to 3000 do; 
gotoxy(0,21); 
write(eol); 
end; 

procedure hole_string(var s:string; allowed:setofchar; len:integer); 
var c:char; •( Liest des String s ein. Seine maximale Laenge steht in len > 

hilfsssstring; -C Alle Zeichen muessen aus allowed sein. > 

begin 
s: =/7 ; 

hilfss: =/ ' ; 
repeat 

c:=hole_charCallowed+Cbs,cr3); 

if c=bs then if length(s)=0 then write(bell) 

eise 

begin 

ss»copy(s,l,length(s)-l); 
write(bs,' 7 ,bs); 
end; 

if c in allowed then if length(s)=len then write(bel1,bs ,' ' ,bs) 

eise begin 

hilfssCID:=c; 
s:=concat(s,hilfss); 
end; 

if c=cr then if length(s)=0 then 

begin 

write(bel1); 
c:«' ' ; 
end; 
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until c=cr; 
end; 

function hole_blkno(prompt:string)sinteger; < liest eine Blocknummer ein > 
var i,num:integer; 

s:string; 
ok:boolean; 

begin 

write(prompt,eol); 
repeat 

hole_string(s,C'0'..'9'3,3 )5 
num:= 0 ; 

for i:=1 to length(s) do num:=num*10+(ord(sCiIl)-48); 
if num<280 then ok:=true 
eise begin 

for i:=l to length(s) do write(bs); 
for i:=l to length(s) do write(' '); 
for i:=l to length(s) do write(bs); 
oks=false; 
end; 

until ok; 
hole_blkno:=num 
end; 

procedure byttohex(byt:integer; var hexstrsstring); < Wandelt den Wert byt > 
begin { in den String hexstr in hexadezimaler Notierung um > 

hexstr: =/ 00 '; 

hexstrC23:=hexdigitCbyt div 163; 
hexstrC33:=hexdigitCbyt mod 163; 
end; 

function hextoint(hexstr:string)rinteger; < wandelt den hexadezimalen String > 
var -C hexstr in einen Integerwert um > 

i,num,digit:integer; 
begin 
num:= 0 ; 

for i:=l to length(hexstr) do 
begin 

digit:=scan(16,=hexstrCiD,hexdigit); 
num:=num#16+digit; 
end; 

hextoint:=num; 
end; 

function hole_hexval(prompt:string;maxlen:integer)sinteger; i liest einen > 
var i hexadezimalen Wert ein > 

s:string; 
begin 

write(prompt,eol); 
if maxlen>4 then maxlen:=4; 
hole_string(s 1 C'0 / .. / 9 / ,'A'F'D,maxien); 
hole_hexval:=hextoint(s); 
end; 

procedure gebe_aus(start:integer); -C gibt den Inhalt des Blocks aus > 
var dmp,str:string; 

inh,j,i:integer; 
begin 

if start =0 
then inh;= 32 
eise inh:= 49; 
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for i := 4 to 19 do 
begin 

gotoxy(1, i); 
write(chr(inh)); 
end; 

oben:=(start=0); 
dmp:=' 0123456789123456 7 ; 
for i:= 0 to 15 do 
begin 

gotoxy(4,4+i); 
for j:= 0 to 15 do 
begin 

inh:=blockCstart+i#16+jD; 
byttohex(inh,str); 
write(str); 

if inh>127 then inh:=inh-128; 
if (31<inh) and <inh<127) 
then dmpCj+2D:=chr(inh) 
eise dmpCj+2 D.'; 

end; 

writeln(dmp); 
end; 

gotoxy(0,23); 

write('Blocknummer: ',blkno:4); 
end; 

procedure lese_block; -C liest einen Block ein, und gibt ihn aus > 
begin 
C*$I-*) 

unitread(4,block,512,blkno,0); 

(*$I+*) 

if ioresultOO then fehler; 
gebe_aus(0); 
end; 

procedure lese; i liest einen gewuenschten Block ein > 
begin 

gotoxy(0,21); 

blkno:=hole_blkno('Welchen Block lesen ? 7 ); 
gotoxy(0,21); 
write(eol); 
lese_block; 
end; 

procedure schreib_block; < schreibt einen Block auf Diskette > 
begin 
(#$I-*) 

unitwrite(4,block,512,blkno,0); 

(#$I+*) 

if ioresultOO then fehler; 
end; 

procedure schreibe; -C schreibt auf gewuenschten Block > 
begin 

gotoxy(0,21); 

blkno:=hole_blkno( / Welchen Block schreiben ? 
gotoxy(0,21); 
write(eol); 
schreib_block; 
end; 
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procedure fuelle; -C fuellt Block mit einem Wert > 

var neu:integer; 

begin 

gotoxy(0,21); 

neu:=hole_hexval(' Womit fuellen ? / ,2); 
fillchar(block,sizeof(block),ehr(neu)); 
gotoxy(0,21); 
write(eol); 
gebe_aus(0); 
end; 

procedure vor; -C liest naechsten Block ein > 
begin 

blkno:=blkno+l; 
if blkno>279 then blkno:=279; 
lese_block; 
end; 


procedure zurueck; i liest einen Block vorher ein > 
begin 

blkno:=blkno-l; 
if blknoCO then blkno:=0; 
lese_block; 
end; 


procedure veraendere; { veraendert ein bestimmtes Byte > 
var adr,newsinteger; -C und gibt Veraenderung aus > 

str:string; 
begin 
repeat 

gotoxy(0,21);' 

adr:=hole hexval("Welches Byte ? ',3); 
until adr<512; 
gotoxy(0,21); 

write(eol,hexdigitC(adr div 256) mod 16Ü, 
hexdigitC(adr mod 256) div 16Ü, 
hexdigitC(adr mod 256) mod 163,": '); 
byttohex(blockCadrü,str); 
write(str," '); 
new:=hole_hexval ('' ,2); 
blockCadrü:=new; 
gotoxy(0,21); 
write(eol); 

if (oben and (adr<256)) or 

((not oben) and (adr>255)) then 
begin 

if adr>255 then adr:=adr-256; 
gotoxy(A+(adr mod 16)*3,4+(adr div 16)); 
byttohex(new,str); 
write(str); 

gotoxy(53+(adr mod 16),4+(adr div 16)); 
if new>127 then new:=new—128; 
if (32>new) or (new>126) then new:=46; 
write(chr(new)); 
end; 


end; 


procedure hilf; { gibt Kommandoliste aus > 
begin 

gotoxy(0,20); 

writeln('0)ben U)nten L)ese S)chreibe'); 
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writeln('N)ochmals A)ktualisieren V)eraendern'); 
writeln('+) vor -)zurueck F)uellen E)nde'); 
warte_auf_ret; 
gotoxy(0,20); 

write(eol,cr,eol,cr,eol,cr,eol,'Blocknummer: ' ,blkno:4); 
end; 


begin 
init; « 
lese_block; 
repeat 

gotoxy(0,0); 
write(' Bedit 
c:=hole_char(cmdset); 
case c of 
/ 0 / ,'o' 

' U' ,' u' 

'S','s' 

' N' ,' n' 

A , a 


< Hauptschleife: liest Kommandos ein und fuehrt sie aus, 

< bis E)nde gewaehlt wird 

0, U, L, S, N, A, +, V, F, E ',bs); 


'VVv' 

/ F / *'f 7 

end; 

until c in C'E', 'e' D; 
end. 


if (not oben) then gebe_aus(0); 

if oben then gebe_aus(256); 

lese; 

schreibe; 

lese_block; 

schreib_block; 

vor; 

zurueck; 
veraendere; 
fuelle; 
hilf 


> 

> 


2.2 Da s Dijreczt-CDjry 

Um ein File von der Diskette lesen zu können, ist es gezwungener¬ 
maßen nötig, zu wissen, wo es steht, welchen Namen es hat sowie an¬ 
dere Zusatzinformationen. Unter POS sind sie in dem sogenannten 
Directory abgelegt. Dies ist ein Bereich auf der Diskette, der eine 
bestimmte Struktur hat. Man kann sich das Directory vom Filer aus 
mit "L" oder mit "E" auf dem Bildschirm ausgeben lassen. Ansonsten 
ist das Directory für Programme nicht zugänglich. Wenn wir jedoch 
wissen, wie das Directory aufgebaut ist und wo es auf jeder Diskette 
steht, wird es möglich, es von einem Programm aus einzulesen und zu 
verändern. 

Das Directory steht in den ersten Blöcken einer jeden Diskette. Da 
der erste Block beim Booten benötigt wird, beginnt es bei Block 
zwei. Das Directory hat eine Größe von fünf Blöcken, so daß die er¬ 
sten Files ab dem sechsten Block geschrieben werden. 

Nun zum Aufbau des Directorys. Im Listing am Ende dieses Kapitels 
ist es als ein strukturierter Record dargestellt. Wir gehen nun 
diese Typendefinition Schritt für Schritt durch und erklären die 
Bedeutung der einzelnen Felder. 

Jede Diskette hat einen Namen, über den sie angesprochen werden 
kann. Dieser Name kann bis zu sieben Zeichen lang sein. Wir definie¬ 
ren einen Diskettennamen als einen String mit der Länge 7 und nennen 
diesen Typen "VNAME", wie Volume-Name. 

Jedes File hat einen Namen, der bis zu 15 Zeichen lang sein darf. 
Den entsprechenden Typen nennen wir "FNAME". 
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Weiterhin wird bei jeder Diskette und bei jedem Fileeintrag ein 
Datum geführt, das angibt, wann der jeweilige Eintrag zuletzt ange¬ 
sprochen wurde. Unter POS wird das Datum in einem gepackten Record 
dargestellt. Die Tage können von 0 bis 31, die Monate von 0 bis 12 
und die Jahre von 0 bis 100 gehen. Dieser Record nimmt einen Platz 
von nur zwei Bytes ein. 

Unter POS gibt es verschiedene Filetypen. Insgesamt sind es neun, 
wovon allerdings normalerweise nur fünf benutzt werden ("TEXT", 

"DATA","CODE","BAD","VOL"). Die Filetypen "INFO","GRAF","FOTO" und 
"SECR" werden in Apple-Pascal nicht unterstützt, sie sind aber im 
Directory vorgesehen. (In Kapitel 2.7 wird allerdings beschrieben, 
wie man den "FOTO"-Typ nutzen kann.) Wir fassen alle möglichen Typen 
als "FKIND" zusammen. 

Nun kommen wir zu einem vollständigen Directory-Eintrag, "DIRENTRY". 
Zunächst wird bei jedem Eintrag vermerkt, wo sich das entsprechende 
File auf der Diskette befindet. Der erste Block wird in "FIRSTBLOCK", 
der letzte in "LASTBLOCK" angeben. Beidesmal handelt es sich um ei¬ 
nen Integerwert. 

Nun werden in einer "CASE"-Anweisung zwei Eintragstypen unterschie¬ 
den. Sie sind abhängig von der Art des Files. Die erste Möglichkeit 
ist, das es sich um einen "VOL"- oder um einen "SECR"-Typ handelt. 
"VOL" bezeichnet einen Eintrag über das Directory und die Diskette 
selber. Der "SECR"-Typ wird auf dem Apple überhaupt nicht benutzt. 

Handelt es sich also um einen "VOL"-Eintrag, so wird zunächst der 
Name der Diskette vermerkt. Es ist vom Typ '‘VNAME" und hat den Name 
"DISKVOL". Dann wird in einem Integerwert angegeben, wieviele Blöcke 
sich auf der Diskette befinden ("BLOCKNO"). Bei einem normalen 
Apple-Laufwerk sind dies 200, bei einem Fremd laufwerk oft 320 oder 
mehr. Dann kommt die Angabe, wieviele Files sich auf der Diskette 
befinden ("FILENO”). Der nächste Eintrag "ACCESSTIME" wird auf dem 
Apple nicht genutzt und hat normalerweise den Wert 0. Er ist für uns 
uninteressant. Schließlich steht in "LASTBOOT", wann die Diskette 
zuletzt benutzt wurde. Bei jedem neuen Booten wird dieses Datum von 
Typ "DATEREC" eingelesen und als Systemdatum geführt. Es kann vom 
Filer aus geändert werden. 

Bei einem normalen File-Eintrag kommt zunächst der Name des Files, 
"FILENAME" vom Typ "FNAME". Dann wird in "ENDBYTES" angegeben, wie¬ 
viele Bytes im letzten Block genutzt sind. Schließlich ist in 
"LASTACCESS" das Datura angegeben, an dem das File zuletzt auf die 
Diskette geschrieben wurden. Damit ist der Eintrag komplett. 

Das Directory eine Apple-Diskette hat 78 Einträge, wobei von 0 bis 
77 gezählt wird. Der erste ist ein "VOL"-Eintrag, womit noch Raum 
für 77 Files bleibt. Wir fassen das ganze Directory in dem Typ 
"DIREC" als ein Feld mit 70 Einträgen zusammen. 

Damit können wir das Directory von einem Programm aus ansprechen. 
Dies tun wir in dem abgedruckten Programm "DIR". Wir lesen das Di¬ 
rectory ein, und geben es aus. Die Ausgabe entspricht der des Filer- 
Kommandos "E". 

Mit "HOLEUNITNO" fragen wir den Benutzer, von welcher Unit wir ein 
Directory lesen sollen. Er kann dabei zwischen der Unit #4 und #5 
auswählen. 

"LESEDIR" liest das Direcory von der Diskette. Wir benutzen dazu die 
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"UNITREAD"-Anweisung. Es werden 
die Variable "DIRECTORY" gelesen 
gen wird. Tritt ein Fehler beim 
einer Fehlermeldung abgebrochen. 

In "GEBEDIRAUS" schließlich wird 
gen dabei alle Informationen an, 
den Namen der Diskette, das ihre 
darauf verzeichnet© Datum. 


Daten von der angegebenen Unit in 
wobei bei Block Nummer 2 angefan- 
Lesen auf, so wird das Programm mit 

das Directory ausgegeben. Wir zei- 
die von Wichtigkeit sind. Zunächst 
Größe, die Anzahl der Files und das 


Dann wird bei allen vorhandenen Files der Name, die belegten Blökke, 
die Filegröße, das Datum, der Typ und schließlich die Anzahl der 
Bytes im letzten Block ausgeben. Dabei wurde darauf geachtet, daß 
der Bildschirm möglicht übersichtlich aussieht. 

Man ist natürlich nicht darauf beschränkt, das Directory einzulesen. 
Wenn man es nach einer Änderung wieder zurückschreibt, kann man 
Funktionen des Filers von einem eigenen Programm aus durchführen. 
Dies wird im nächsten Kapitel demonstriert. 

Wichtige Variablen 

"DIRECTORY" : Variable von Typ "DIREC", die das gesamte 
Directory einer Diskette aufnimmt 

"UNITNO" : Integerwert, der angibt, von welchem Laufwerk 
ein Directory eingelesen werden soll. 

Wichtige Prozeduren 

"HOLEUNITNO" : Fragt den Benutzer nach dem Wert für "UNITNO" 

"LESEDIR" : Liest das Directory von der Diskette in die 
Variable "DIRECTORY" ein 


"GEBEDIRAUS" : Gibt die Variable "DIRECTORY" 

strukturiert auf dem Bildschrim aus 


Pr og ramm "DIR - TEXT ’' 


Programm dir; 
type 

vname=stringC7Il; { Ein Volumename > 

fname=stringC15D; -C Ein Filename > 
daterec = packed record { das Datum > 
month: D..12; 
day: 0..31; 

year: 0..100; 

end; 

fkind = Cvol,bad,code,text,info,data,graf,foto,secr); 
direntry = record { ein Eintrag im Directory > 

firstblock: integer; { Block, bei dem das File anfaengt > 
lastblock: integer; < Block, bei dem das File endet > 
case filekind: fkind of 

{ nur beim Eintrag #0 > 

vol,secr: (diskvol: vname; < Name der Diskette > 
blockno: integer; { Anzahl der Bioecke > 
fileno:integer; { Anzahl der Files > 
accesstime: integer; { unbenutzt > 
lastboot: daterec); < Datum, an dem die 


■C moegliche Filetypen > 
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< zuletzt benutzt wurde > 

{ Normale File-Eintraege > 

bad,code,text, 

info,data,graf, 

foto: (filename: fname; -C Filename > 

endbytes: 1..512; { Bytes im letzten Block > 
lastaccess: daterec); < Datu, an dem das File > 
end; { geschrieben wurde > 

direc = arrayCG. .773 of direntry; < Directory mit 78 Eintraegen > 

var directoryrdirec; 
unitno:integer; 

procedure hole_unitno; -C Fragen, von welcher Unit gelesen werden soll > 
var chschar; 

ok:boolean; 

begin 

write('Von welcher Unit lesen (4/5) ?'); 
ok:=false; 
repeat 
read(ch); 

if ch in C'4','5'3 
then ok:=true 

eise write(chr(7),chr(8),' # ,chr(8)); 
until ok; 

unitno:=ord(ch)-48; 
end; 

procedure lese_dir; -C liest das Directory von der Unit #4 ein > 
var io:integer; -C Bei einem Disketten-Fehler wird das Programm verlassen > 

begin 
{$I-> 

unitread(unitno,directory,sizeof(directory),2); 

<$I+> 

io:=ioresult; 
if io<>0 then 
< Fehler ! > 
begin 

writeln(chr(7)); -C Beep > 
writeln('Fehler #',io); 

writeln( 7 Directory von Unit ,unitno,' nicht zu lesen'); 

exit(program) 
end; 

end; 

procedure gebe_dir_aus; 

var i:integer; 

begin 

writeln(chr(12)); -C Schirm loeschen > 
with directoryCQD do 

begin i Informationen ueber Diskette ausgeben > 

■C Diskettename > 

write (' Diskettenname :'' * ,diskvol,*'''); 

{ zuletzt benutzt am > 

writeln(' / Zuletzt benutzt am lastboot.day,lastboot.month, 

,lastboot.year); 

< Anzahl der Bioecke > 

write('Anzahl der Bioecke: ',blockno); 

< Anzahl der Files > 

writeln(' / Anzahl der Files: ',fileno); 
writeln; 
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end; 

i:=l; 

while i<=directoryCOD.fileno do 
begin 

if i mod 20 = 0 then 

■C Bildschirmausgabe anhalten > 
begin 

write('Bitte <ret> zum Weitermachen'); 
readln; 

writeln(chr(12)); -C Bildschirm loeschen > 
end; 

with directoryCiD do -C Informationen der einzelnen Files ausgeben > 
begin 

■C Filename > 

write(copy(concatCfilename,' '),1,18)); 

■C belegte Bioecke > 

writeC'Block ',firstblock:3,lastblock:3,' '); 

write('(',lastblock-firstblock:3,') '); 

< geschrieben am > 

write(1astaccess.day:2, # - # ,1astaccess.month:2,'-' , 
lastaccess.year:2,' '); 

< Filetyp > 
case filekind of 

bad : writeC'Bad File'); 
code: write('Codefile'); 
text: write('Textfile'); 
info: writeC'Infofile'); 
data: write('Datafile'); 
graf: write('Graffile'); 
foto: writeC'Fotofile') 
end; 

■C Bytes im letzten Block > 
writelnC' ',endbytes:3); 
end; 
i:=i+l; 
end; 

end; 

begin 

hole_unitno; 
lese_dir; 
gebe_dir_aus; 
end. 


2 - 3 PASH : Ein. a 1 t e r na t ±A/-sr- E ± 1 e r~ 

Aus Kapitel 2.2 haben wir die Informationen, um das Directory einer 
jeden Diskette zu lesen und zu verändern. In PASH werden wir dieses 
Wissen ausgiebig anweriden. 

Das Andern der Informationen über eine Diskette ist im POS-Betriebs- 
system die Aufgabe des Filers. Fast sämtliche seiner Funktionen be¬ 
ruhen darauf. Das Verändern des Volume-Namens mit der "C"-Funktion 
ist im Grunde genommen nur das Verändern eines Feldes der Directory- 
Informationen. Da wir dies auch können, wollen wir nun ein Programm 
entwickeln, das einige Funktionen des Filers übernimmt und neue hin¬ 
zufügt. Da das Programm an ein Programm angelehnt ist, das unter dem 
Betriebssystem CP/M läuft und WASH heißt, nennen wir unser Programm 
PASH, 
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Was ist am Filer noch zu verbessern, könnte man sich fragen, wenn 
man damit bis jetzt jedes auf tauchendes Problem lösen konnte. Es 
fallen einem auch nur wenige Funktionen ein, die man ab und zu ge¬ 
brauchen könnte, die der Filer aber nicht bietet. 

So wäre es gut, wenn man einige Standardvorgänge mit einem Kommando 
auslösen könnte. So z.B. das Listen eines Textes auf dem Drukker. 
Falls man ein entsprechendes Kommando hat, braucht man nur noch ei¬ 
nen Filenamen eingeben und nicht mehr, daß man den Text an den Druk¬ 
ker ("PRINTER: 1 ') schicken will (Mit "T"-Kommando) . 

Wir bauen also in unser Programm eine solche Funktion ein. Ebenfalls 
wird eine Funktion realisiert, die ein File auf dem Bildschirm aus¬ 
gibt. Schließlich wäre es auch schön, wenn wir uns auch Codefiles 
anschauen könnten, ohne daß dies ein wildes Piepsen und Bildschirm 
löschen auslöst. 

Da die meisten Pascalbenutzer mit zwei Laufwerken arbeiten, gibt es 
nur vier Richtungen zum Kopieren von Files, die benutzt werden. Also 
vereinfachen wir das Kopieren von Files, indem die Kopierrichtung 
vorher festgelegt wird. Dann ist nur noch ein Filename für ein 
Kopierkommando nötig. 

Was wir in unserem Programm auch gegenüber dem Filer verbessern wol¬ 
len, ist der Bedienungskomfort. Für fast alle Filerkommandos ist die 
Eingabe eines Filenamens nötig. Bei längeren Namen wird es aber 
schwierig, sich die genaue Schreibweise des Namens zu merken. Man 
muß sich also zuerst das Directory mit "L" listen lassen um den 
Namen dann abzuschreiben. Zudem wird der Bildschirm oft gelöscht, so 
daß wir uns das Direktory erneut listen müssen. Um dies zu umgehen, 
führen wir eine völlig andere Eingabe des Filenamens ein. 

Der größte Teil des Bildschirms bei der Benutzung von PASH wird re¬ 
serviert für die Anzeige aller Filenamen einer Diskette. Wenn wir 
uns nur auf den Filenamen beschänken paßt auch die maximale Anzahl 
von Files auf den Bildschirm. Nun benutzen wir noch einen Cursor, 
mit dem wir auf einen Filenamen zeigen können. Die Angabe eines 
Filenamens beschänkt sich damit nur auch einige Cursorbewegungen. 
Wenn dann ein Kommando eingegeben wird, bezieht es sich auf das 
File, auf das der Cursor gerade zeigt. Es braucht also nicht ein 
einziger Buchstabe des Filenamens eingegeben werden. Fehleingaben 
sind ausgeschlossen und man behält immer den Überblick über den In¬ 
halt der ganzen Diskette, mit der gerade gearbeitet wird. 

Um die Anzahl der Eingaben zur Cursorbewegungen zu minimieren führen 
wir Kommandos ein, die den Cursor ein oder fünf Files vor oder zu¬ 
rück bewegen. Zwei weitere ermöglichen es, zum ersten oder zum letz¬ 
ten Eintrag im Directory zu springen. 

Schließlich führen wir noch ein Konzept ein. Die Auswahl von meh¬ 
reren Files ist im Filer durch die sogenannten "Wildcards" und 
"?" realisiert. Es ist aber nicht möglich, zwei Files automatisch 
hintereinander zu bearbeiten, wenn kein Teil ihrer Namen identisch 
ist. Das "?"-Zeichen, das für solche Fälle gedacht ist, erfordert 
wieder bei jedem File ein "J/N"-Antwort. 

Hier führen wir nun Marken ein. Jedes File, auf dem der Cursor steht 
kann markiert werden. Wird nun ein Kommando aufgerufen, das z.B, 
alle markierten Files löscht, so geschieht das automatisch. Der Vor¬ 
teil ist, daß mit einem Kommando Files bearbeitet werden können, die 
keinerlei Entsprechungen im Filenamen aufweisen müssen. 
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PASH bietet nicht alle Funktionen des Filers, da das Programm dann 
einen beträchtlichen Umfang erreichen würde, der den Rahmen eines 
Buches sprengt. PASH kann Files löschen, umbenennen, kopieren und 
auf dem Bildschirm und auf dem Drucker ausgeben. 

Es ist für den Leser aber auch möglich, PASH zu erweitern. Dabei 
kann er die Cursorsteuerung und das Markenkonzept unberührt lassen. 
Er braucht sich nur die entsprechenden Prozeduren schreiben, und die 
mit einem bestimmten Tastaturkommando aufrufen lassen. 

Damit dies erleichtert wird, schauen wir uns eine Funktion von PASH 
genauer an, undzwar die Löschfunktion. 

PASH bietet zwei Kommandos zum Löschen von Files an. Das File, auf 
das der Cursor zeigt, kann gelöscht werden oder alle markierten 
Files. Beide benötigen ein Unterprogramm, das ein einzelnes File 
löscht. Diese Prozedur heißt "DELENTRY”. An sie wird ein Integerwert 
übergeben, der die Nummer des Eintrages im Directory angibt. Für das 
erste File würde z.B. der Wert 1 übergeben. 

Wenn überhaupt Files vorhanden sind, gibt "DELENTRY" eine Meldung 
aus, daß ein File gelöscht wird. Dann werden einfach alle Directory- 
Einträge, die hinter den zu löschenden File stehen um eins aufge¬ 
rückt, da alle Einträge aufeinander folgen müssen. Dann wird nur 
noch der Directory-Eintrag "FILENO" um 1 erniedrigt. Er gibt an, 
wieviele Files auf der Diskette vorhanden sind. Damit ist das File 
schon gelöscht. Es ist ersichtlich, daß die Operationen mit dem 
Directory äußerst simpel sind. 

Die Prozedur "DEL" löscht das File, auf das der Cursor gerade zeigt. 
Der Benutzer muß zunächst das Löschen durch "Y" bestätigen. Die 
Funktion "YESNO" erwartet die Eingabe von "Y" oder "N" und ergibt 
bei "Y" den Wert "TRUE". 

Bei "Y" löscht "DEL" mit “DELENTRY" das File. Die Nummer des Files, 
auf das der Cursor zeigt steht in "CURRENT". Dann wird mit "PUTDI¬ 
RECTORY" das Directory auf die Diskette geschrieben. "PUTDIRECTORY" 
ergibt den Wert "TRUE", wenn ein I/O-Fehler aufgetreten ist. Falls 
ja, gibt "DEL" eine Fehlermeldung aus und liest das Directory wieder 
neu ein. 

Schließlich wird das Directory mit "PRINTDIR" auf dem Bildschirm neu 
ausgeben und der Cursor eventuell berichtig. Dies ist dann der Fall, 
wenn das letzte File gelöscht wurde, da er dann außerhalb der Ein¬ 
träge stehen würde. 

"TAGDEL" löscht alle markierten Files. Zunächst wird gefragt, ob 
jede Aktion bestätigt werden soll, was in der Variablen "CONFIRM" 
festgehalten wird. Mit einer Schleife werden alle Files daraufhin 
geprüft, ob sie markiert sind. Dies ist der Fall, wenn das Feld 
"TAGGED" für den Eintrag den Wert "TRUE" hat. Dann wird eventuell 
nachgefragt, ob wirklich gelöscht werden soll und mit "DELENTRY" das 
File gelöscht. 

Daraufhin wird wieder der Cursor korrigiert und das Directory auf 
die Diskette geschrieben. Falls ein Fehler auftritt, gibt es wieder 
eine Meldung. Schließlich wird das Directory wieder neu auf dem 
Bildschirm aufgezeigt. 
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Wichtige Typen und Variablen 


"DIREC" : 

Enthält einen strukturierten Record für das 

Directory. Wird aus Kapitel 2.2 übernommen. 


"DIRECTORY" : Enthält das Directory der Diskette, mit 



der gerade gearbeitet wird. 

"TAGGED" 

: Feld, das angibt, ob ein File markiert ist. 

Bei "TRUE" ist der entsprechende 
Directory-Eintrag markiert. 

"CURRENT" 

: Enthält die Nummer des Files, auf das der 

Cursor im Moment zeigt. 

"SOURCE" : 

Enthält Unitnummer des Laufwerks, mit dem 

gerade gearbeitet wird (Unit 4 oder 5). Beim 
Kopieren wird von dieser Unit gelesen. 

"TARGET" ; 

Enthält Unitnummer des Laufwerks, auf das beim 
Kopieren geschrieben wird (Unit 4 oder 5). 

"JMPDIR" : 

: Enthält die Richtung, in der das "J"-Kommando 
arbeitet (1 oder -1). 


Kommandolis te 


"->" : 
"<-" ; 
"B" 

"E" 

"J" 

Cursor einen Eintrag nach unten bewegen 
; Cursor einen Eintrag nach oben bewegen 
: Cursor auf ersten Eintrag setzen 
: Cursor auf letzten Eintrag setzen 
: Cursor fünf Einträge nach oben öden nach unten 
bewegen 

: Richtung für "J" Kommando auf "nach oben" setzen 
: Richtung für "J" Kommando auf "nach unten" setzen 

<spc>: 
"4" 

" $ " 

"5" : 

"%" : 

Marke setzen oder löschen 
: von Unit 4 lesen, auf Unit 5 kopieren 

: von Unit 4 lesen, auf Unit 4 kopieren 

von Unit 5 lesen, auf Unit 4 kopieren 

, von Unit 5 lesen, auf Unit 5 kopieren 

"S" : 

"D" : 

"F" : 

Directory neu einiesen 

File löschen (Muß durch "Y" bestätigt werden) 
markierte Files löschen (durch "Y" wird 
ausgewählt, daß bei jedem File bestätigt 
werden muß) 

"R" : 

"C" : 

File umbenennen 

File kopieren (Falls vorhanden, muß Uberschreiben 
durch "Y" bestätigt werden) 

"V" : 

"L" : 

markierte Files kopieren 

File auf dem Bildschirm ausgeben (Durch "Y" kann 
ausgewählt werden, daß nach jeder Bildschirmseite 
durch <esc> abgebrochen werden kann) 

"P" : 

.. I" . 

File auf Drucker ausgeben 

Fileinformationen ausgeben (Reihenfolge: 

Filename/Datum/belegte Blöcke/Bytes im letzten 
Block) 

"U" : 

ausgeben, wieviel Platz auf der Diskette schon 
belegt und noch frei ist (Angaben in Blöcken und 
KByte) 
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"/" : Kommandoliste ausgeben 

"X" : PASH verlassen 


Progr amm '* PASH . TEXT '* 

<$S+> 

Programm PASH; 
const 

window=20; 

type 

setofchar = set of char; 
ab = (a,b); 
vname=stringC7D; 
f name=stringC15!3; 

DATEREC = PACKED RECORD 
MONTH: 0..12; 

DAY: 0..31; 

YEAR: 0..100; 

END; 

FKIND = (vol,bad,code,text,info,data,graf,foto,secr); 

DIRENTRY = RECORD 

FIRSTBLOCK: INTEGER; 

LASTBLOCK: INTEGER; 

CASE FILEKIND: FKIND OF 

vol,secr: (diskvol: VNAME; 

blockno: INTEGER; 
fileno:integer; 
accesstime: INTEGER; 
lastboot: DATEREC); 
bad,code,text, 

info,data,graf,foto: (FILENAME: FNAME; 

ENDBYTES: 1..512; 

1astaccess: DATEREC); 

END; 

DIREC = ARRAYC0..77D OF DIRENTRY; 
var 

cr,bs,sp,eol,bei 1 : char; 
directory:diree; 

tagged: packed arrayCl..77D of boolean; 

currentold,current:integer; 

emdset:setofchar; 

noclr:boolean; 

source,target:integer; 

sources,targets:stringC33; 

jmpdir:integer; 

segment procedure init; < initialisiert Variablen und legt das > 
begin < Bildschirmlayout fest > 

page(output); 

write('- 7 ); 

write( 7 PASH 1.1 7 ); 

write (' - ' ); 

gotoxy(0,21); 

write('-Read on <4>—Copy <4 -> 5>—Jump<+>- # ); 

write( 7 - 7 ) ; 

cr:=chr(13); 
bs:=chr(8); 
sp:=chr(21); 
eol:=chr(29); 
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bei 1:=chr(7); 

cmdset:=Cbs,sp,' '4','5','B' 

'LVPVRVSVUVVVX'Di 

current:=1; 
currentold:=1; 
noclr;=false; 

fillchar(tagged,sizeof(tagged),chr(0)); 
source :=4; target :=5; 
sources:=' #4:' ; targets: = / #5:'; 
jmpdir:=l; 
end; 


CVD'/EVFVIVJ'i 


procedure cleartags; -C loescht alle Markierungen > 
begin 

fillcharCtagged,sizeof(tagged),chr(0)); 
end; 

function getcharCokset:setofchar):char; < holt ein Zeichen von der Tastatur, > 
var < das in okset entahlten sein muss > 

ch : char; 
good : boolean; 
begin 
repeat 

read(keyboard,ch); 

if ord(ch)>95 then ch:=chr(ord(ch)-32); 
if eoln(keyboard) then ch:=cr; 
good := ch in okset; 
if not good then write(bell) 

eise if ch in C' '..chr(125)D then write(ch); 
until good; 
getchar:=ch; 
end; 

procedure getstring(var s:string; oksetssetofchar; maxien:integer); I holt > 
var { einen String von der Tastatur. Seine Laenge steht > 

sl sstringCID; < in maxien, die Zeichen muessen in okset enthalten > 

stemp :string; { sein. > 

len :integer; 

firstchar,lastchar:boolean; 
getset ssetofchar; 
begin 

sl: =/ '; stemp:= /y ; 
if maxlen<l then maxlen:=l 

eise if maxlen>255 then maxlen:=255; 
repeat 

len:=length(stemp); 
firstchar:=(len=0); 
lastchar:=(len=maxlen); 
if firstchar 

then getset:=okset 

eise if lastchar then getset:=Ccr,bsD 

eise getset:=okset+Ccr,bs3; 
slClü:=getchar(getset); 
if sICID in okset 

then stemp:=concat(stemp,sl) 
eise if slClD=bs then begin 

write(bs ,* 1 ,bs); 
delete(stemp,len,l); 
end; 

until slClD=cr; 
writeln; 
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s:=stemp; 
end; 

procedure getaname(var name:string; var num:integer); { liest einen Filenamen > 
begin -C von der Tastatur ein und prueft, ob er im Directory vorkommt. Falls > 
getstring(name,C' '.. #Ä/ D,15); { nicht, wird num 0 > 

num:=0; 
repeat 

num:=num+l; 

until <name=directoryCnumI].filename) or 
(num>directoryCOD.fileno); 
if num>directoryCÜD.fileno then num:=0; 
end; 

function yesno:boolean; { liest eine Y/N-Antwort ein > 
begin 

yesno^getcharüi'N' , 'n' ,' Y' , 'y' T) in C'Y','y'D); 
end; 

procedure ret; < wartet auf die Eingabe von <ret> > 

var dummyschar; 

begin 

write (' <ret>'); 
dummy: =getchar(Cchr(13)D);. 
end; 

function getdirectory:integer; { liest das Directory ein. Der Funktionswert > 
begin -C entspricht dem I/O-Result. > 

(*$I-*) 

unitread(source,directqry,sizeof(directory),2); 

<#$I+*) 

getdirectory:=ioresult; 
end; 

function putdirectory:integer; < schreibt das Directory auf die Diskette. > 
begin { Der Funktionswert entspricht dem I/O-Result. > 

C*$I-*) 

unitwrite(source,directory,sizeof(directory),2); 

(*$I+*) 

putdirectory:=ioresu1t; 
end; 

procedure error; < gibt Fehlermeldung aus > 
begin 

gotoxy(0,22); 

write(bel1 ,‘ *** I/O error *** y ); 
ret; 
end; 

procedure printentry(num:integer); i gibt einen Filenamen auf dem Schirm aus > 

var chrchar; 

begin 

gotoxy(1+19*trunc(num/(window+1)),1 + ((num-1) mod window)); 
if taggedCnumU 
then ch:®^ 7 
eise ch: =/ : 7 ; 

write(ch,directoryCnuml.filename); 

gotoxy(17+19*trunc(num/(window+l)),1 + ((num—1) mod window)); 
write(ch); 
end; 
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procedure clear(num:integer); { loescht einen Filenamen auf dem Bildschirm > 
begin 

gotoxy(2+19*trunc(num/(window+1)),1 + ((num-1) mod window)); 
write( 7 7 ); 

end; 


procedure clearwindow; { loescht Bildschirm > 

var i:integer; 

begin 

gotoxy( 0 , 1 ); 
for i:=l to window do 
writelnCeol); 
gotoxy( 0 ,l); 
end; 

procedure clearline; -C loescht die 22. Bildschirmzeile > 
begin 

gotoxy( 0 , 22 ); 
write(eol); 
end; 

procedure moncurrent; { gibt Cursor auf dem Bildschirm aus > 
begin 

gotoxy(19*trunc(currentold/(window+1)),1 + ((currentold-1) mod window)); 
write( / 7 ); 

gotoxy(18+19#trunc(currentold/(window+1)),1 + ((currentold-1) mod window)); 
write ( 7 7 ); 

gotoxy(19*trunc(current/(window+1)),1 + ((current-1) mod window)); 
write( 7 > 7 ); 

gotoxy(18+19*trunc(current/(window+1)),1 + ((current-1) mod window)); 
write( , < / ); 
currentold:=current; 
end; 

procedure printdir; < gibt das Directory auf dem Bildschirm aus > 

var i:integer; 

begin 

clearwindow; 

for i:= 1 to directoryCCn.fileno do 
printentry(i); 
moncurrent; 
end; 


procedure helpuser; { gibt die Kommandoliste aus > 


procedure helpl; 
begin 

clearwindow; 

writeln(' Commands' 

write( # -> Move Cursor down '); 

writeln( # J Move Cursor five up or down 7 ); 
write( 7 <- Move Cursor up '); 

writeln( 7 , Set J-direction to up 7 ); 
write( 7 B Set Cursor to first file 7 ); 

writeln( 7 . Set J-direction to down 7 ); 
writeln( 7 E Set Cursor to last file 7 ); 
write( 7 spc Toggle tag 7 ); 

writeln( 7 4: read from unit 4 copy to unit 5 7 ); 
write( 7 S Start over 7 ); 

writeln( 7 $: read from unit 4 copy to unit 4 7 ); 
write( 7 D Delete file 7 ); 


,cr); 
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writelnC' 5: read from unit 5 
writeC' F Tagged delete 
writelnC' X: read from unit 5 
end; 


copy to unit V); 
copy to unit 5'); 


procedure help2; 
begin 

writelnC' 
writelnC' 
writelnC' 
writelnC' 
writelnC' 
writeC' I 
writelnC' 
writeC' U 
writelnC' 
gotoxyC0,22); 
writeC'Press'); 
ret; 

printdir; 
end j 


Rename file'); 

Copy file y ); 

Tagged copy'); 

List a file on CRT'); 

List a file on PRINTER'); 
Print file information 
/ Print helptable'); 

Print used disk space 
X Exit PASH'); 




begin 

helpl; -C wegen der beschraenkten Groesse einer Prozedur musste > 
help2; { 'help' aufgeteilt werden > 
end; 


procedure advance; < bewegt Cursor um einen Filennamen nach vorne > 
begin 

if current<directoryCD3.fileno 
then begin 

current:=current+l; 
moncurrent; 
noclr:=true; 
end; 

end; 

procedure stepback; < bewegt Cursor um einen Filenamen zurueck > 
begin 

if currentM 
then begin 

current:=current-l; 
moncurrent; 
noclr:=true; 
end; 

end; 

procedure jump; { bewegt Cursor um 5 Filenamen vor oder zurueck > 

var i:integer; 

begin 

for i:=l to 5 do 
case jmpdir of 
-1: stepback; 

1: advance 
end; 

end; 

procedure tag; < setzt eine Markierung > 
begin 

taggedCcurrentD:=not taggedCcurrentD; 
printentryCcurrent); 
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advance; 
noclr:=false; 
end; 

procedure jmpbeg; { setzt den Cursor auf den ersten Filenamen > 
begin 

current:=1; 
moncurrent; 
noclr:=true; 
end; 

procedure jmpend; -C setzt den Cursor auf den letzten Filenamen > 
begin 

current:=directoryCOD.fileno; 
moncurrent; 
noclr:=true; 
end; 

procedure restart(s:boolean); { liest Directory neu ein > 
begin 

clearline; 

if s then write('Start over'); 
if getdirectory <> 0 
then error 
eise begin 

cleartags; 
printdir; 
jmpbeg; 
noclr:=false; 
end; 

end; 

procedure rename; -C veraendert einen Filenamen > 
var target:string; 

dummy,num:integer; 
begin 

gotoxy(0,22); 
write(' Rename as '); 
getaname(target,num); 
if num=0 
then begin 

directoryCcurrentü.filename:=target; 
if putdirectoryOO then begin 

error; 

dummy:=getdirectory; 
end; 

clear(current); 
printentry(current); 
end 

eise begin 

gotoxy(0,22); 

write(target ,' already exists l'^eol); 
end; 

end; 

procedure filesize; { gibt Informationen zu einem File aus > 
begin 

gotoxy(0,22); 

with directoryCcurrentD do 
begin 

write(filename,' # ); 
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with lastaccess do 

write(day, '-' ,month, '-' ,year); 
write(' Used blocks: ',firstblock,'-' ,lastblock); 
write(' Bytes in last blocks ',endbytes,' '); 
end; 
ret; 
end; 


procedure unused; -C gibt aus, wieviel Platz auf der Diskette belegt ist > 

var unused,used,i:integer; 

begin 

gotoxy(0,22); 

write('Unused blks : '); 

used:=directoryCOD.1astblock-directoryCOD.firstblock; 
for i:= 1 to directoryCOD.fileno do 

used:=used+(directoryCiD.lastblock-directoryCiD.firstblock); 
unused:=directoryC0D.blockno-used; 
write(unused,' ' ,trunc(unused/2),'.', 

truncCCunused*lü)/2—lü*trunc(unused/2)),' K Bytes)'); 
writeC' / 'jused,' blks used'); 
write(' (= ',trunc(used/2),'.', 

truncC(used*10)/2—lü*trunc(used/2)),' K Bytes) '); 

ret; 
end; 

procedure delentry(num:integer); < loescht ein File > 

var i:integer; 

begin 

if directoryCOD.fileno <> 0 then 
begin 

clearline; 

write('Deleting ',directoryCnumD.filename); 
with directoryCOD do 
begin 

if num<fileno then for i:= num to fileno-1 do 

directoryCiD:=directoryCi+lD; 

fi1enoi=fi1eno-1; 
end; 

end; 

end; 


procedure del; -C loescht ein File auf Benuztereingabe > 

var dummy:integer; 

begin 

clearline; 

writeC'Delete ? (Y/N) '); 
if yesno then begin 

delentry(current); 
if putdirectory<>0 then begin 

error; 

dummy:=getdirectory; 
end; 

printdir; 

if current>directoryCOD.fileno then 
current:=directoryCOD.fileno; 
moncurrent; 
end; 


end; 


procedure tagdel; { loescht alle markierten Files > 
var dlt,confirmsboolean; 
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dummy,i:integer; 

begin 

gotoxy(0,22); 

write('Comfirm each delete ? (Y/N) '); 
confirm:=yesno; 

for i := directoryCOT.fileno downto 1 do 
if taggedCiD then begin 

if confirm 
then begin 

clearline; 

write(directoryCiD.filename,' Delete ? (Y/N) 
dlt:=yesno; 
end 

eise dlt:=true; 
if dlt then delentry(i); 
end; 

cleartags; 

if current>directoryCOD.fileno then current:=directoryC0D.fileno; 
if putdirectoryOO then begin 

error; 

dummy:=getdirectory; 
end; 


printdir; 
end; 


procedure view(list:boolean); -C gibt ein File auf dem Bildschirm > 
var i,j, < oder dem Drucker aus. > 

k,count, 

dummy: integer; 

carray; packed arrayCO..15D of 

packed arrayCO..63D of char; 
f ile; 

interactive; 


unfil: 
outpt: 
new1ine, 
abort, 
die: 


boolean; 


procedure chkio; { verlaesst 'view' bei Diskettenfehler > 
begin 

if ioresultO 0 then begin 

error; 
printdir; 
exit(view) 
end; 

end; 

procedure askuser; i gibt Bildschirmmeldung aus > 

var an:char; 

begin 

clearline; 

write('Press <ret> or <esc> '); 
an:=getchar(Ccr,chr(27)D); 
clearline; 

if an=chr(27) then begin 

close(unfil); 
printdir; 
exit(view) 
end; 

end; 


function readblk:integer; < liest einen Block des Files > 
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begin 

c*$i-*:> 

readblk:=blockreadCunfil,carray,2); 
C*$I+*) 
chkio; 
end; 


begin 

gotoxy(0,22); 

writeC'Do you want the possibility to abort ? CY/N)'); 

abort:=yesno; 

clearline; 

clearwindow; 

C*$I-#) 

reset(unfil,concatCsources,directoryCcurrentIl.filename)); 
if list then reset(outpt,'PRINTER:') 

eise reset(outpt,' C0NS0LE:'); 

C*$I+*) 

chkio; 

if directoryCcurrentH.filekind = text 
then 
begin 

dummy:=readblk; 
count;=0; 
newline:=true; 
dle:=false; 
repeat 

for i;= □ to readblk*7+l do 
begin 

for j:= 0 .to 63 do 
begin 

if die then begin 

for k:=l to ord(carrayCi,jID-32 do 
writeCoutpt,' '); 
dle:=false; 
end 

eise 

if new1ine then 

if carrayCi,jD=chrC16) 
then dle:=true 
eise begin 

newline:=false; 
if carrayCi,jD=chrC13) 
then 
begin 

writeln(outpt); 
newlines=true; 
count:=count+l; 
end 
eise 

writeCoutpt,carrayCi,j3); 

end 


eise 

if carrayCi,jD=chr(13) 
then begin 

writeln(outpt); 
newline:=true; 
count:=count+l; 
end 

eise writeCoutpt,carrayCi,jD); 

if count=20 then begin 
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count:=0; 

if abort then askuser; 
if not list then clearwindow; 
end; 

end; 

end; 

until eof(unfil); 
end 

eise begin 

repeat 

if not list then clearwindow; 
for i: 58 0 to readblk*7+l do 
begin 

for j: 83 0 to 63 do 

if (carrayCi,jD < chr(32)) 

or ((carrayCi,j3>chr(126)) and (carrayCi,jD<chr(160))) 
or (carrayCi ,j3**chr(255)) 
then write(outpt,' .') 
eise write(outpt,carrayCi,jD); 
writeln(outpt); 
end; 

if not eof(unfil) then 
if abort then askuser; 
until eof(unfil); 
end; 

(*$I-*) 
close(unfil); 
close(outpt); 

(*$I+*) 
clearline; 
write('Press'); 
ret; 

printdir; 
end; 

function copyfile(num:integer)rboolean; < kopiert ein File > 
var filea,filebrfile; 

change,repl:boolean; 

dirb:direc; 

blks,i:integer; 

blkarray: packed arrayCO..240633 of char; 

procedure bye; -C verlaesst ' copyf ile' > 
begin 
( *% 1 -*) 
close(filea); 
close(fileb); 

(*$I+*) 

copyfiles=true; 
exit(copyfile) 
end; 

procedure chkio; < testet auf Diskettenfehler > 

var hold:integer; 

begin 

hold:=ioresult; 
if hold=8 then begin 

clearline; 

write('No room on copy disk. '); 

ret; 

bye; 
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end; 

if hold <> 0 then begin 

error; 

bye; 


procedure prompt(which:ab); < gibt Bildschirmmeldung aus > 
begin 

gotoxy(0,22); 
write(eol,'Insert '); 
case which of 

a: write(' original 7 ); 
b: write('copy') 
end; 

write( / disk in drive ,source,' '); 

ret; 

clearline; 
end; 

begin 

copyfile:=false; 
gotoxy(0,22); 

write(eol,'Copying ''' ,directoryCnumD.filename,''''); 
change:=(source=target); 

(*$I-*) 

reset(fi1ea,concat(sources,directoryCnumD.fi1ename)); 
chkio; 

if change then prompt(b); 

unitread(target,dirb,sizeof(dirb),2); 

chkio; 

for i:=l to dirbCOD.fileno do 

if dirbCiü.filename=directoryCnumD.filename then 
begin 

i:=dirbC0T.fileno+1; 
gotoxy(0,22); 

write(eol,'File exists. Replace ? (Y/N) '); 

repl:=yesno; 

clearline; 

if not repl then bye; 
end; 

rewrite(fi1eb,concat(targets,directoryCnumD.fi1ename)); 

chkio; 

repeat 

if change then prompt(a); 

b1ks:=blockread(filea,blkarray,47); 

chkio; 

if change then prompt(b); 
blks:=blockwrite(fileb,blkarray,blks); 
chkio; 

until eof(filea); 
close(fileb,lock); 
chkio; 

if change then prompt(a); 
close(filea); 

(*$I+#) 

chkio; 

if getdirectory <> 0 
then error 
eise begin 

printdir; 
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jmpbeg; 
noclr:=false; 
end; 

end; 

procedure copy; < kopiert File auf Benutzereingabe > 

var dummy:boolean; 

begin 

write (' Copying'); 
dummy:=copyfile(current); 
clearline; 
end; 


procedure tagcopy; { kopiert alle markierten Files > 

var i:integer; 

begin 

gotoxy(0,22); 
clearline; 

for is =1 to directoryCOD.fileno do 
if taggedCiD then 

if copyfile(i) then begin 

clearline; 

write('Do you want to continue ? (Y/N) 
if not yesno then exit(tagcopy) 
eise clearline; 


end; 


cleartags; 
printdir; 
end; 



procedure setunit(which:integer; same:boolean); < setzt Kopierrichtung > 

var oldsource:integer; 

begin 

oldsource:=source; 
source:=which; 
case source of 
4: target:=5; 

5: target:=4 
end; 

if same then target:=source; 
case source of 

4: sources:= / #4:'; 

5: sources:='#5 :' 
end; 

case target of 

4: targets:= 7 #4:'; 

5: targets: =/ #5 :' 
end; 

gotoxy(10,21); 
write(source); 
gotoxy(20,21); 

write(source,' -> 7 ,target); 
if oldsourceOsource then restart(f alse); 
end; 


procedure setjmpdir(dir:integer); •( setzt Richtung fuer das 7 J 7 Kommando > 
begin 

jmpdir:=dir; 
gotoxy(34,21); 
case jmpdir of 
-1: write( / - / ); 
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1: write('+') 
end; 
end; 

begin 

init; 

if getdirectory <> 0 then begin 

error; 

exit(program) 
end; 

printdir; 

repeat < endlose Hauptschleife > 
if not noclr then clearline 

eise noclr:=false; 

gotoxy(0,22); 
write('> ',bs); 


case ord(getchar(cmdset)) of 


8 

stepback; 

(* 

<— *) 

21 : 

: advance; 

(* 

— > *) 

32i 

s tag; 

(* 

' ' #) 

36i 

i setunit(4,true); 

(* 

*) 

37: setunit(5,true); 

(# 

#) 

44 

setjmpdir(-l); 

(* 

V *) 

46 

set jmpdird); 

(* 

# .' *) 

47 

helpuser; 

(* 

'/' #) 

52 

setunit(4,false); 

(* 

'V *) 

53 

setunit(5,false); 

(* 

'5' *) 

66 

jmpbeg; 

(* 

'B' #) 

67 

copy; 

(* 

'C' #) 

68 

del; 

<* 

'D' *) 

69 

jmpend; 

(* 

' E' *) 

70 

tagdel; 

(* 

' F' #) 

73 

filesize; 

(* 

•r #) 

74 

jump; 

(# 

'j' #) 

76 

view(false); 

(* 

' L' *) 

SO 

view(true); 

(* 

•?' #> 

82 

rename; 

(* 

'R' *) 

83 

restart(true); 

(* 

'S' #) 

85 

unused; 

<# 

'U' *) 

86 

tagcopy; 

(* 

'V' *) 

88 

begin 

(* 

'X' #) 


write(chr(12)); 

exit(program) < beendet das Programm > 
end 

end; 

until false; 
end. 


2 _ <L Ke in A. k» s t. t_i r" z bei 

s & cg m öxi't.iöx-'t.ör-i Pr og r ä. mm & n 

Apple-Pascal bietet die Möglichkeit, beliebig lange Programm abzuar¬ 
beiten. Dazu werden einzelne Programmteile in sog. "Segmenten" zu¬ 
sammengefasst. Beim Aufruf eines Segments wird der entsprechende 
Teil von der Diskette nachgeladen. Wird er nicht mehr gebraucht, 
kann an seiner Stelle ein anderes Segment geladen werden. Dadurch 
kann ein Programm größer als der vorhandene Speicherplatz werden, da 
ja immer nur Teile davon im Rechner stehen müssen. Die Realisierung 
der Segmentierung im Programm wird im "Apple Pascal Language" Hand 
buch auf der Seite 74 beschrieben. 
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Diese Verfahren birgt jedoch eine Gefahr. Das zu ladende Segment ist 
ein Teil des Programmfiles. Deshalb kann es auch nur von der Disket¬ 
te geladen werden, auf der das Programmfile steht. Apple-Pascal 
merkt sich nur, in welchen Blöcken dieses Segment auf der Diskette 
steht. Es wird aber nicht geprüft, ob sich im Laufwerk die richtige 
Diskette befindet. Ist es eine andere, so stürzt der Rechner unwei¬ 
gerlich ab. Die Folgen sind vor allem Datenverlust. 

Ein segmentiertes Programm, an dem wir diesen Effekt nachprüfen kön¬ 
nen, ist der Editor. Er besteht aus mehreren Segmenten, so z.B. 
eines für das Ausführen des "CF" Befehls. Damit wird zu dem im Spei¬ 
cher befindlichen Text ein anderer von Diskette dazugeladen. Wir 
starten also den Editor und geben dann "CF" ein. Nun wird das ent¬ 
sprechende Segment geladen, was man an der LaufWerks leuchte merkt. 
Es folgt die Frage nach einem Filenamen. Wir legen nun eine andere 
Diskette in das Laufwerk und geben den Namen eines Textfiles ein, 
das sich auf ihr 1 befindet. Nun wird der Text nachgeladen. Dann er¬ 
scheint die Meldung, das wir nachprüfen sollen, ob sich das File 
"SYSTEM.EDITOR" im Laufwerk befindet. Wir wechseln nun aber nicht 
die Diskette, sondern drücken <ret>. Das Ergebnis ist, daß nun ein 
anderes Segment eingeladen werden soll. Nun werden aber einfach be¬ 
stimmte Blöcke von der Diskette, die sich gerade im Laufwerk befin¬ 
det geladen. Da dies nicht die richtige ist, werden sinnlose Daten 
geladen. Vielleicht erscheinen auf dem Bildschirm einige seltsame 
Zeichen, auf jeden Fall ist ein Weiterarbeiten unmöglich, da der 
Rechner abgestürzt ist. 

Diese Feh1bedienung wollen wir in diesem Kapitel abfangen lernen. 
Nachdem wir in Kap. 2.2 den Aufbau des Directorys kennengelernt ha¬ 
ben, können wir von einem Programm aus feststellen, welchen Namen 
die Diskette hat, die sich gerade in einem Laufwerk befindet. Dies 
nützen wir hier aus. 

Wir gehen dabei so vor, daß wir zu Beginn des Programms feststellen, 
welche Diskette sich im Laufwerk befindet. Da dieser Teil am Angang 
des Programms steht, ist es nicht sehr wahrscheinlich, das inzwi¬ 
schen die Diskette gewechselt wurde. Den Namen, den wir erhalten, 
bezeichnet die Programmdiskette. Sie muß sich immer dann im Laufwerk 
befinden, wenn ein Segement aufgerufen, oder verlassen wird. 

Dies festzustellen ist ebenfalls einfach. Wir lesen nur wieder den 
Namen der Diskette ein, und vergleichen ihn mit dem, den wir an An¬ 
fang des Programms als Namen der Programmdiskette eingelesen hatten. 
Stimmen sie überein, so können wir ein Segment auf rufen, oder es 
verlassen. Ansonsten fordern wir den Benutzer auf, die richtige Dis¬ 
kette einzulegen und prüfen erneut. 

Um einen Diskettennamen zu erhalten, brauchen wir aber nicht das 
gesamte Directory einzulesen. Wenn wir uns seinen Aufbau nochmal 
genau anschauen, werden wir festellen, das vor dem Namen der Disket¬ 
te in 3 Wörtern andere Informationen stehen, die uns aber nicht 
interessieren. Wir fassen sie als ein Integerfeld mit drei Elementen 
zusammen. Dann folgt der Name der Diskette, ein String mit der Länge 
7. Die nachfolgenden Informationen brauchen wir nicht einzulesen. 

Nun zu dem hier abgedruckten Programm. Zu Beginn des Programmablaufs 
lesen wir in dem Segment "INIT" den Namen der Diskette ein, die sich 
gerade im Laufwerk befindet. Er wird an die globale Veriable "SEG- 
STRING" übergeben. Damit weiß das Programm, von welcher Diskette 
Segmente zu laden sind. 
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Dies wenden wir in dem Segment "SEG1" an. Die Funktion "CHKSEG" er¬ 
gibt ein "TRUE", wenn sich die Diskette mit dem angegeben Disket¬ 
tennamen im Laufwerk befindet. Sie wird in einer "REPEAT"-"UNTIL"- 
Schleife aufgerufen, solange, bis sie "TRUE“ ergibt. Dann kann das 
Segment verlassen werden. 

"GETSEGSTR" und "CHKSEG" übergeben bei einem Diskettenfehler den 
Fehlercode. Im abgedruckten Beispiel wird darauf das Programm abge¬ 
brochen . 

Vielleicht fällt es auf, daß im dem Programm nicht geprüft wird, ob 
sich die Programmdiskette auch beim Aufruf eines Segments im Lauf¬ 
werk befindet. Dies ist hier auch nicht nötig, da die Segmente di¬ 
rekt hintereinander aufgerufen werden. Es ist auszuschließen, daß in 
dieser kurzen Zeit die Diskette gewechselt werden könnte. 

Wichtige Konstanten, Typen und Variable 

"UNITNO" : Konstante, die angibt, von welcher Unit das 

Programm gestartet werden muß. Hier Unit #4 

"DIRPART" : Record, um den Namen einer Diskette 

einzulesen. "DUMMY" enthält für uns 
unwichtige Informationen. 

"SEGSTRING" : String, der den Namen der Pogrammdiskette 
auf nimmt. 

Wichtige Prozeduren und Funktionen 

"GETSEGSTRING" : Liest den Namen der Programmdiskette 
und übergibt einen eventuellen 
Fehlercode. 

"CHKSEG" : Überprüft, ob sich die Programmdiskette im 

Laufwerk befindet. Ergibt "TRUE", wenn ja. 
übergibt einen eventuellen Fehlercode. 


Programm "SEGCHK.TEXT" 

Programm seg; 
const unitno = 4; 
type 

vname=stringC7!]; < Ein Volumename > 

dir_part = record -C ein Teil des Directorys > 

dummys packed array C0..2D of integer; 
diskvol: vname; -C Name der Diskette > 
end; 

var segstring : vname; 

segment procedure init; 
var error:integer; 

procedure get_segstr(var s:vname; var er:integer); { Namen der Programm- > 
var prt:dir_part; { diskette einiesen > 

begin 
{$!-> 
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unitread(unitno,prt,sizeof(prt),2); 

<$I+> 

er:=ioresult; -C ev. Fehlercode retten > 
s:=prt.diskvol; { s setzen > 
end; 

begin 

writeln( / Segment INIT'); -C Demo Meldung > 

get_segstr(segstring,error); C "segstring" von Diskette lesen > 
if errorOO then begin < bei Fehler Programm verlassen > 

writeln('Diskfehler 7 ); • 
exit(program); 
end; 

■C hier koennen weiter Anweisungen stehen > 

< . > 

< . > 

< . > 

end; 

segment procedure segl; 
var error:integer; 

function chkseg(s:string; var er:integer):boolean; < ergibt true, wenn > 
var prt:dir_part; C die eingelegte Diskette den angegebenen Namen > 

begin < hat, sonst false. Bei einem Fehler wird der > 

•C$1—I i Fehlercode uebergeben, und chkseg ergibt true > 

unitread(unitno,prt,sizeof(prt),2); 

C$I+> 

er:=ioresult; < ev. Fehlercode retten > 
if prt.diskvolOs then chkseg:=false 
eise chkseg:=true; 

if er<>0 then chkseg:=true; { Korrektur bei Lesefehler > 
end; 

begin 

writelnC'Segment SEG1'); < Demomeldung > 

■C hier koennen weiter Anweisungen stehen > 

< . > 

{ . > 

•C . > 

repeat ■( Darauf warten, dass die richtig Diskette eingelegt wird > 
writeC'Bitte Programmdiskette einlegen'); 
read ln; 

until chkseg(segstring,error); 

if errorOO then begin < Bei Fehler Programm verlassen > 
writelnC'Diskfehler i ); 
exit(program) 


begin < Nur Segmente auf rufen > 
init; 
segl; 
end. 
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2.5 Wie man den DOS 3.3 Catalog 
liest 

Das Standard-Betriebssystem des Apples ist das DOS, in der Version 
3.3. Es wird mit jedem Diskettenlaufwerk ausgeliefert. Die Struktur 
einer DOS-Diskette ist der einer Pascal-Diskette in gewissen Maße 
ähnlich. Es bestehen jedoch mehrere Unterschiede. 

So beträgt unter Pascal die Größe eines Block nicht wie unter POS 
512, sondern 256 Bytes. Das entspricht einem halben Block. Er wird 
Sektor genannt. Außer diesem Hauptunterschied ist der Aufbau und die 
Position des Inhaltsverzeichnisses der Diskette, das unter DOS 
"Catalog” genannt wird, grundsätzlich verschieden. 

Weiterhin ist die Position der Blöcke und Sektoren anders. Es ist 
also nicht so, daß z.B. der Block Nr. 1 dem zweiten und dritten 
Sektor vom Track 0 einer DOS-Diskette entspricht. Die genaue Vertei¬ 
lung ist in der Tabelle 2.5 für einen Track angegeben. 


DOS-Sektor 

- + - 

j 

entspricht POS-Block 

0 

! 

0 

linke Hälfte 

1 

! 

7 

linke Hälfte 

2 

! 

6 

rechte Hälfte 

3 

! 

6 

linke Hälfte 

4 

i 

5 

rechte Hälfte 

5 

1 

5 

linke Hälfte 

6 

! 

4 

rechte Hälfte 

7 

i 

4 

linke Hälfte 

8 

! 

3 

rechte Hälfte 

9 

! 

3 

linke Hälfte 

10 

j 

2 

rechte Hälfte 

11 

j 

2 

linke Hälfte 

12 

! 

1 

rechte Hälfte 

13 

j 

1 

linke Hälfte 

14 

i 

0 

rechte Hälfte 

15 

! 

7 

rechte Hälfte 






Tabelle 2.5: Umrechnungstabelle DOS-Sektoren -> Pos-Blöcke 


Jedoch sind POS- und DOS-Diskette nach der gleichen Methode forma¬ 
tiert, so das es möglich ist, unter Pascal Informationen einer DOS- 
Diskette zu lesen. Hier nützen einem Befehle wie "RESET", "GET" oder 
"BLOCKREAD" freilich nichts. Man ist auf die "UNITREAD/WRITE" Be¬ 
fehle beschränkt. Mit ihnen kann man einzelne Byte-Blöcke von der 
Diskette lesen, wobei die absolute Position dieser Bytes auf der 
Diskette angegeben wird. Es ist damit möglich, unter Pascal DOS- 
Files einzulesen, oder zu schreiben. In diesem Kapitel wird ein Pro¬ 
gramm vorgestellt, daß das sog. VTOC und den Catalog einer DOS-Dis¬ 
kette einliest und ausgibt. 

Die Informationen über den Aufbau des DOS-Inha1tsverzeichnisses ste¬ 
hen im "DOS Manual" auf den Seiten 129-134. 

Wir wollen mit dem Aufbau des sog. "VTOC" beginnen. "VTOC" bedeutet 
"Volume Table Of Contents". Es enthält Informationen darüber, wo der 
Catalog beginnt, allgemeine Informationen über den Aufbau der Dis- 
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kette und eine Liste, welche Sektoren belegt, und welche frei sind. 
Normale DOS-Disketten unterscheiden sich hier nur in dieser Liste. 
Wir wollen das VTOC als einen gepackten Record darstellen. Diesen 
könne wir dann direkt mit "UNITREAD" einiesen. Der Leser sollte nun 
anhand des DOS-Handbuchs auf Seite 132 den Aufbau des Records ver¬ 
folgen . 

Da die Informationen hier in einzelnen Bytes enthalten sind, defi¬ 
nieren wir im Programm zunächst den Typ "BYTE”, mit dem Wertbereich 
von 0 bis 255. 

Das erste Byte im VTOC ist unbenutzt, wir nennen es "UNUSED1". Das 
zweite gibt an, auf welchem Track sich der erste Sektor des Catalogs 
befindet. Wir nennen es "CATTRK". Das dritte gibt an, bei weichem 
Sektor er beginnt. Es heißt "CATSEC". Byte 4 enthält die Nummer der 
DOS-Version ("DOSVERS"). Dann folgen zwei unbenutzte Bytes, die wir 
als ein gepackes Feld von zwei Byte auffassen. Darauf kommt die 
Volume-Nummer der Diskette. Wir nennen sie "VOLUME". 

Die Bytes 7 bis 38 sind wieder unbenutzt. Eigentlich könnte man sie 
wieder als ein gepacked Feld mit 30 Bytes auffassen. Dies wird je¬ 
doch zu Fehlinformationen führen. Der Grund ist, das innerhalb eines 
gepackten Records gepackte Felder bei einem Byte mit gerader Stel¬ 
lenzahl beginnen müssen. Dies liegt daran, daß der interne P-Code- 
Interpreter mit 16-Bit-Werten rechnet. In unserem Fall hätte das zur 
Folge, daß ein gepackes Feld hier bei Byte Nr. 0 beginnen würde. Das 
erste unbenutzte Byte steht hier jedoch schon bei Nr. 7. Alle nach¬ 
folgenden Informationen wären also um ein Byte verschoben, und damit 
nicht mehr richtig. Wir müssen uns hier damit helfen, daß wir zu¬ 
nächst nur ein einzelnes Byte angeben ("UNUSED3") und dann erst das 
gepackte Feld ("UNUSED4"). 

Dies würde aber immer noch nicht funktionieren. Nach einem gepacked 
Feld beginnt der nächste Eintrag in dem Record wieder bei einem Byte 
mit gerade Stellenzahl. Wenn unser Feld nun 29 Elemente groß wäre, 
würde die nächste Information im 40. Byte stehen. Sie muß aber aus 
dem 39. kommen. Wir müssen das Feld nochmals kürzen, so daß es eine 
gerade Anzahl von Bytes einnimmt. Danach wird wieder ein einzelnes 
Byte angeben C"UNUSED5"). 

Nachdem wir diese Schwierigkeiten überstanden haben, folgt im 39. 
Byte eine Wert, wieviele Angaben in einem Sektor der Track/Sektor- 
Liste eines jedes Files stehen ("MAXPAIR"). Die Track/Sektor-Liste 
ist im DOS-Handbuch auf den Seiten 128/129 beschrieben. Auf sie soll 
hier nicht weiter eingegangen werden, da wir sie nicht benötigen, um 
den Catalog auszugeben. 

Hierauf folgen 8 unbenutzte Bytes. Da sie bei einem Byte mit gerader 
Stellenzahl beginnen und eine eine gerade Anzahl haben, könne wir 
sie bedenkenlos in einem gepackten Feld zusammenfassen ("UNUSED6"). 

Nun kommen zwei Integerwerte. Sie stellen eine Maske dar, die das 
DOS benötigt, um Veränderungen an der Bit-Map (s.u.) vorzunehmen. 
Wir nennen sie "MASK", werden sie jedoch nicht mehr brauchen. 

Dann folgen Informationen über den Aufbau der Diskette. Zunächst, 
wieviele Tracks sich auf der Diskette befinden ("TRKNO"), dann wie¬ 
viel Sektoren sich in einem Track befinden ("SECNO") und schließ¬ 
lich, wieviele Byte in einem Sektor stehen ("BYTENO"). 

Nun folgt die schon genannte Liste, in der steht, welche Sektoren 
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belegt sind, und welche nicht. Sie wird "Bit-Map" genannt. Da ein 
Sektor nur entweder belegt oder frei sein kann, wird diese Informa¬ 
tionen mit je einem Bit für jeden Sektor dargestellt. Hat das Bit 
den Wert 1, oder true, so ist der jeweilige Sektor frei, ansonsten 
belegt. 

Normale DOS-Disketten haben 35 Tracks. Wir fassen diese Bit-Map als 
ein gepacktes Feld mit 35 Elementen von Typ "TRACKMAP" auf. "TRACK- 
MAP" haben wir vorher definiert als ein gepacktes Boolean-Feld mit 
32 Elementen. Da jeder Track normalerweise jedoch nur 16 Sektoren 
hat, bleiben die Bits 16 bis 31 unbenutzt und haben immer den Wert 
false. 

Die Bytes 196 bis 255 im VTOC sind unbenutzt und heißen "UNUSED7". 

Damit haben wir den Aufbau des VTOCs in einem gepackten Record zu¬ 
sammengefasst. Wir können ihn einiesen, und jede Information an¬ 
sprechen . 

"READINVTOC" liest das VTOC einer DOS-Diskette ein. Dazu benutzen 
wir den "UNITREAD"-Befehl, wobei wir aus dem Block 136 lesen. Im 
Grunde genommen handelt es sich nicht um einen Block, sondern um 
zwei DOS-Sektoren. Das VTOC befindet auf Track 17, Sektor 0. Wir 
können daraus den entsprechenden Block errechnet. Dieser ergibt sich 
aus 8 # Tracknummer, wozu der Wert hinzugerechnet wird, der sich aus 
der obigen Tabelle für den Sektor ergibt. 8 # 17 + 0 ergibt 136. Da 
wir wissen, daß der 0-te Sektor in der ersten Hälfte des errechneten 
Sektors liegt, brauchen wir keine Bytes zu verschieben, und können 
die Variable "VTOC" direkt einiesen. 

"PRINTVTOC" gibt dann die VTOC-Informationen aus. Zunächst werden 
die Informationen ausgegeben, die wirklich von Wichtigkeit sind, wie 
Volume-Nummer, Anzahl der Track etc. Dann wird dargestellt, welche 
Sektoren belegt und welche frei sind. Belegte Sektoren werden mit 
einem Stern gekennzeichnet ("#"). 


Danach soll der Catalog ausgegeben. Sein Aufbau ist auf den Seiten 
129-131 im DOS-Handbuch genau beschrieben. 

Nun stellt sich uns ein schon bekanntes Problem. Wollen wir einen 
strukturierten Record zusammenstellen, der direkt eingelesen werden 
kann, wie das VTOC, so ist dies sehr problematisch. Dies hängt wie¬ 
der damit zusammen, daß innerhalb eines gepackten Records alle ge¬ 
packten Felder oder Records bei einem Byte beginnen, dessen Stel¬ 
lenzahl gerade ist. Nun nimmt ein File-Eintrag im Catalog eine unge¬ 
rade Anzahl von Bytes ein. Aufgrund der oben beschriebenen Komplika¬ 
tionen wäre ein strukturierter Record für einen Catalog-Sektor 
äußerst aufwendig und zudem umständlich anzusprechen. Wir gehen ei¬ 
nen anderen Weg. 


In der Prozedur "READINCAT" wird ein Sektor des Catalogs eingelesen. 
Zur Errechnung der Blocknummer bedienen wir uns der Tabelle "SEC- 
LOC". Sie wurde vorher in der Prozedur "INIT" mit den Werten aus der 
obigen Tabelle gefüllt. Der Block wird zunächst in die Variable 
"BLOCK" eingelesen. Sie ist ein Feld aus 512 Bytes und dient als 
Zwischenspeicher. Befindet sich der Sektor in der rechten Hälfte 
eines Block, so werden in "BLOCK" 256 Bytes nach links verschoben, 
so daß das erste Element von "BLOCK" in jedem Fall das erste Byte 
des gewünschten Sektors enthält. 


Nun wird der Inhalt des Catalogs aus der Variable "BLOCK" in "CAT" 
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übertragen. Dabei sprechen wir jedes Byte einfach durch einen Index 
an. 

"CAT" ist ein strukturierter Record von Typ "CATSECTOR". Er ist ent¬ 
sprechend den Angaben des DOS-Handbuchs aufgebaut. Da wir die Infor¬ 
mationen ja aus dem eingelesenen Sektor byteweise in diese Variable 
übertragen können wie die unbenutzten Bytes einfach auslassen. 

Das erste Feld in "CAT" heißt "TRKLINK" und gibt an, auf welchem 
Track der nächste Sektor des Catalogs zu finden ist. "SECLINK" gibt 
an, in welchem Sektor. Haben beide Felder den Wert 0, so ist das 
Ende des Catalogs erreicht. 

Nun folgen sieben File-Einträge. Jeder File-Eintrag ist vom Typ 
"FILEENTRY". Dieser ist wieder ein strukturierter Record. 

Das erste Feld ("TSTRK") hier gibt an, auf welchem Track die Track/- 
Sektor-Liste für dieses File zu finden ist. Ist dieser Wert 0 oder 
255, so ist das File gelöscht. Das zweite ("TSSEC") gibt die Sektor¬ 
nummer der Track/Sektor-Liste an. Nun folgt ein Wert, der angibt, um 
welchen Filetyp es sich handelt. Die Bedeutung dieses Wertes ist auf 
Seite 131 des DOS-Handbuchs erklärt. Die dort angegebenen Informa¬ 
tionen sind allerdings unvollständig, da es noch die File-Typen "S" 
und "R" gibt. Sie sind beide unter DOS bekannt und haben die Werte 8 
bzw. 16. Unser Programm wird auch sie bei der Ausgabe des Catalogs 
berücksichtigen. 

Als nächstes kommt der Filename, der 30 Zeichen lang ist, und 
schließlich die Anzahl der Sektoren, die das File einnimmt. 

Wenn wir nun den Record "CAT" mit den eingelesenen Werten gefüllt 
haben, können wir einen Catalog ausgeben. Dies über nimmt die Proze¬ 
dur "PRINTCAT". Sie gibt die File-Einträge aus, wobei die Form eines 
"CATALOG"-Kommandos unter DOS übernommen wird. 

Der Vorgang Cata1og-Sektor einiesen und ausgeben wird solange wieder 
holt, bis wir am Ende des Catalogs angelangt sind. Dies dauert etwas 
länger als unter DOS. 

Es erschließen sich nun einige Möglichkeiten. Wenn wir den DOS-Cata- 
log lesen können, werden wir ihn auch verändern und zurück¬ 
schreiben können. Wir könnten einen "DOS-Filer" schreiben, der dies 
vornimmt. Oder wir könnten Programme schreiben, die Daten von DOS- 
Disketten übernehmen. Oder man könnte sich einen Assembler schrei¬ 
ben, der ein Programm im DOS-Format erzeugt. Die Möglichkeiten sind 
unbegrenzt, zudem steht einem zur Programmierung das ausgereifte 
Pascal-System zur Verfügung. 

Wichtige Prozeduren: 

"INIT" : Initialisiert die Umrechnungstabelle 

DOS-Sektoren <—> POS-Blöcke 

"READINVTOC" : Liest das VTOC einer DOS-Diskette in die 

Variable "VTOC" ein 

"PRINTVTOC" : Gibt anhand von "VTOC" aus, welche 

Sektoren der DOS-Diskette belegt und 
welche frei sind 


"CATALOG 


Gibt das Inhaltsverzeichnis der DOS-Diskette aus 
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"READINCAT" : Liest einen Sektor des Catalogs ein 

"PRINTCAT" : Gibt einen Sektor des Catalogs, d.h. 
7 Einträge aus 


Programm " CATALOG . TEXT ' 
program doscat; 


const 

dosunit 


5 ; 


type 

byte = 0..255; 

< Bitmap fuer einen Track > 
trackmap = packed array CO..313 of boolean; 
■C Record fuer VTOC einer DOS-Diskette > 
vtoc_type = packed record. 


unusedl: 

byte; 

cattrk : 

byte; 

catsec : 

byte; 

dosvers: 

byte; 

unused2: 

packed 

volume : 

byte; 

unused3: 

byte; 

unused4: 

packed 

unused5: 

byte; 

maxpair: 

byte; 

unused6-: 

packed « 

mask : 

packed 

trkno : 

byte; 

secno 

byte; 

byteno : 

integer 

bitmap : 

packed . 

unused7: 

packed . 


■C Track des ersten Catalog-Sektor > 

•C Sektor des ersten Catalog-Sektor > 
•C BOS-Version > 
array C4..5U of byte; 

{ Volumenummer der Diskette > 


■C max. 


Anzahl der Angaben in einem Sektor > 
I40..473 of byte; < einer T/S-Liste > 


■C Anzahl der Tracks auf der Diskette > 

•C Anzahl der Sektoren pro Track > 

; { Anzahl der Bytes in einem Sektor > 
array CG..343 of trackmap; < Bitmaps fuer > 
array C196..2553 of byte; { 35 Tracks > 

end; 

■C Eintrag fuer ein File > 
file_entry = record 
tstrk 
tssec 
typ 
name 
seccnt: 
end; 

{ Record fuer einen Sektor des Catalogs > 
cat_sektor = record 

trklink: byte; { Zeiger auf naechsten Catalog Sektor (Track) > 
seclink: byte; < Zeiger auf naechsten Catalog Sektor (Sektor) > 


byte; { Track der T/S-Liste > 
byte; < Sektor der T/S-Liste > 
byte; -C Filetyp > 
stringC3Q3; < Filename ’> 

integer; { Anzahl der belegten Sektoren > 


entries: packed array C1..7D of file_entry; < 
end; { 

var vtoc:vtoc_type; 
cat:cat_sektor; 
seclocsarrayCO..15D of record 

block:integer; 
right:boolean; 
end; 


7 Eintraege > 
in einem Sektor 


procedure init; < Initialisert Sektor->Block-Umrechnungstabelle > 
begin 

seclocC 0D.block:=0; seclocC OD.right:=false; 
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seclocC lD.block:=7 
seclocC 2D.block:=6 
seclocC 3D.block:=6 
seclocC 43.block:=5 
seclocC 5D.block:=5 
seclocC 6D.block:=4 
seclocC 7U.block:=4 
seclocC 8D.block:=3 
seclocC 9D.block:=3 
seclocClOD.block:=2 
seclocCllü.block:=2 
seclocC12T.block:=1 
seclocC13D.block:=l 
seclocC14D.block:=0 
seclocC15D.block:=7 
end; 


seclocC lD.right:=false; 
seclocC 21 .right:=true; 
seclocC 3D.right:=false; 
seclocC 4D.right:«true; 
seclocC 5D.right:=false; 
seclocC 6D.right:-true; 
seclocC 7D.right:=false; 
seclocC 8D.right:=true; 
seclocC 9Ü.rightr^false; 
seclocClOD.right:=true; 
seclocdlD. right :=f alse; 
seclocC12D.right:=true; 
seclocC13D.right:=false; 
sec1ocCl43.right:=true; 
seclocClSD.right:=true; 


procedure readin_vtoc; -C Liest das VTOC von einer DOS-Diskette ein > 
begin 

unitread(dosunit,vtoc,256,136); 
end; 


procedure print_vtoc; -C Gibt aus, welche Sektoren belegt, 
var -C frei sind > 

sector,track,index:integer; 
begin 

write(chr(12)); 
with vtoc do 
begin 

writeln( 7 Catalog. bei T 7 ,cattrk, 7 ,S 7 ,catsec, 

7 DOS Ver. 7 ,dosvers, 7 Vol ",volume); 
writelnCtrkno, 7 Tracks 7 ,secno, 7 Sektoren 7 , 
byteno, 7 Bytes/Sektor 7 ); 

writeln; 

writelnC 7 1111111111222222222233333 7 ); 

writeln( 7 01234567890123456789012345678901234 7 ); 

writeln; 

for sector:= 0 to 15 do 
begin 

write( 7 S 7 ,sector:2, 7 7 ); 
for track:= 0 to 34 do 
begin 

if sector > 7 then index:=sector-8 
eise indexj=sector+8; 
if bitmapCtrack,indexT then writeC 7 7 ) 
eise write( 7 * 7 ); 


end; 

writeln; 
end; 

end; 

end; 


und welche > 


procedure catalog; -C Gibt den Catalog einer DOS-Diskette aus > 
var t,s:integer; 
linecnt:integer; 

procedure readin_cat(track,sector:integer); -C Liest einen Sektor ein, und > 
var block : packed array C0..511D of byte; { uebertraegt ihn in den > 

entr,ent:integer; < Record 7 cat 7 > 

begin 

■C Sektor einiesen > 
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unitread(dosunit,block,512,136+seclocCsector3.block); 

■C falls der Sektor sich im zweiten Teil des Blocks befindet, > 
■C um 256 Bytes nach links verschieben > 
if seclocCsectorD.right then 

moveleft(blockC2563,blockCOD,256); 

{ Daten interpretieren > 

with cat do 
begin 

trklink:=blockC13; 
seclink:=blockC23; 
for entr:=l to 7 do 
with entriesCentrD do 
begin 

tstrk:=blockCll + (entr—1 )*35+03; 
tssec:=b1ockCl1 + (entr—1)*35+13; 
typ : =blockCl'l + (entr-l )*35+23; 
name:- 7 7 ; 

for cnt:=l to 30 do 

nameCcntD:=chr(blockC11 +(entr—1 )*35+2+cnt3); 
seccnt:=blockCll+(entr-1)*35+333; 
end; 

end; 

end; 

procedure print_cat; < Fileeintraege ausgeben > 

var entr:integer; 

begin 

with cat do 
begin 

for entr:=l to 7 do 
with entriesCentrD do 

if not (tstrk in CO,2553) then 
begin 

if linecnt=20 then 
begin 

writeln; 

write( 7 Bitte <ret> druecken 7 ); 
readln; 
lineent:=0; 
write(chr(12)); 
end; 

if typ>127 then begin 

write( 7 * 7 ); 
typ:=typ-128; 
end 

eise write( 7 7 ); 

case typ of 

0: write( 7 T 7 ); 

1: write( 7 I 7 ); 

2: write( 7 A 7 ); 

4: write( 7 B 7 ); 

8: w‘rite( 7 S 7 ); 

16: write( 7 R 7 ) 
end; 

if not (typ in CO,1,2,4,8,163) 
then write( 7 ? 7 ); 
write(seccnt:3); 
writeln( 7 7 ,name); 
lineent:=linecnt+l; 
end; 
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end; 

end; 

begin 

t:=vtoc.cattrk; 
s:=vtoc.catsec; 
linecnt:=0; 

{. Catalog-Sektoren bis zum Ende einiesen und ausgeben > 
repeat 

readin__cat(t,s); 
print_cat; 
t:=cat.trklink; 
s:=cat.seclink; 
until <s=G) and (t=0); 
end; 

begin 
init; 

write(chr(12)Bitte DOS-Diskette in Laufwerk ',dosunit,' einlegen. <ret>'); 

readln; 

readin_vtoc; 

print_vtoc; 

writeln; 

write('Bitte <ret> druecken'); 
readln; 

write(chr(12)); 

catalog; 

writeln; 

writeC'Bitte DOS-Diskette entfernen <ret> / ); 
readln; 
end. 


2.6 POS 1 . 1 xjcjtx d OOS 3.3 auf 
eine r DisTcst-te» 

Wir wissen inzwischen, wie man von Pascal aus das POS-Directory und 
auch den DOS-Catalog anspricht. In diesem Kapitel werden wir dieses 
Wissen s.nwenden, um ein besonderes Formatier-Programm zu schreiben. 
Das Ziel ist es, auf einer einzigen Diskette sowohl DOS- als auch 
POS-Dateien zu haben. 


Dazu müssen wir die Diskette in zwei Bereiche aufteilen, je einen 
für jedes Betriebssystem. Pascal erwartet das Directory auf Track 0 
und DOS den Catalog auf Track 17. Diese Stellen sind verbindlich. 
Nun ergeben sich daraus aber keine Probleme. Wir teilen unsere Dis¬ 
kette so auf, das die ersten 16 Tracks von POS und die Tracks 17 bis 
35 von DOS benutzt werden. Diese Aufteilung findet sich in Bild 
2 . 6 . 1 . 


Track(s) 

! belegt mit 


0 

! POS-Directory 


1-16 

! POS-Dateien 


17 

! DOS-Catalog 


17-35 

! DOS-Dateien 



Bild 2.6.1: Die Aufteilung 
einer Diskette 
in DOS und POS 
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Es ergibt sich darurch nur eine Einschränkung, nämlich, daß die Dis¬ 
kette nur unter Pascal gebootet werden kann. Um DOS zu booten werden 
die Tracks 0 bis 2 benötigt. Diese sind hier aber von Pascal belegt. 
Das Booten unter POS bereitet keine Probleme. 

Wie erreichen wir aber, daß DOS und POS nicht auf die Diskettenbe¬ 
reiche zugreifen, die für das jeweils andere Betriebssystem reser¬ 
viert sind ? Wir müssen das Directory und den Catalog darauf ein¬ 
richten. 

Für POS sind die Tracks 0 bis 16 reserviert. 17 Tracks ergeben 17*8= 
136 Blöcke. Da in Directory in Feld "BLOCKNO" angegeben ist, auf 
wieviele aufeinanderfolgende Blöcke vorhanden sind, geben wir hier 
einfach den Wert 135 für den letzten Block an. Für POS hat die Dis¬ 
kette nun nur 16 Tracks. Die Tracks 17 bis 35 existieren also theo¬ 
retisch nicht, und werden auch nicht angesprochen. Damit ist der 
DOS-Teil der Diskette geschützt. 

Unter DOS stehen die Informationen über die Diskette selber im VTOC. 
Es gibt hier zwar auch die Angabe "TRKNO", die angibt, wieviele 
Tracks auf der Diskette vorhanden sind. Wir können diese Angabe je¬ 
doch nicht für unsere Zwecke benutzen. Der Grund ist, daß an dieser 
Stelle steht, wieviele Tracks, beginnend bei Track 0 es auf der Dis¬ 
kette gibt. Wenn wir hier 18 (35 vorhandene Tracks minus 17 reser¬ 
vierte) hineinschreiben würden, hätte DOS Zugriff auf die Tracks 0 
bis 18. Genau das wollen wir aber verhindern, "TRKNO" hilft uns also 
nicht weiter. 

Anstatt dessen benutzen wir einfach die "BITMAP", die angibt, welche 
Sektoren belegt sind, und welche nicht. Wenn wir alle Sektoren, die 
für POS reserviert sind einfach als "belegt" kennzeichnen, wird DOS 
nicht auf sie zugreifen, und der POS-Teil der Diskette ist geschützt 

Bei unserem Programm gehen wir davon aus, daß die zu zu bearbeitende 
Diskette schon formatiert ist. Dies sollte zweckmäßigerweise unter 
POS geschehen. Ein unter DOS formaterte Diskette unterscheidet sich 
von einer Pascal-Diskette auch darin, daß die physikalische Anord¬ 
nung der Sektoren auf der Diskette anders ist. Für den logischen 
Zugriff hat dies keine Folgen, jedoch ist diese Anordnung unter DOS 
nicht optimal. Wenn wir eine unter DOS formatierte Diskette als 
Pascal-Diskette verwenden, wird der Zugriff auf die Diskette wesent¬ 
lich langsamer. 

Unser Formatier-Programm formatiert im Grunde genommen die Diskette 
garnicht, es schreibt nur die nötigen Directory- und Cataloginforma- 
tionen. Deshalb gliedert es sich auch in zwei Teile. 

Der erste Teil, "FORMATDOS" schreibt das VTOC und den Catalog auf 
die Diskette. Den Aufbau des VTOC übernehmen wir aus Kapitel 2.5. 
Das VTOC wird zunächst in der Prozedur "SETUPVTOC" mit den gewün¬ 
schten Informationen gefüllt. Bis auf "BITMAP" werden alle Felder so 
gesetzt, wie sie auf einer normalen DOS-Diskette Vorkommen. Hier 
darf man sich allerdings nicht in allen Fällen von den Angaben auf 
Seite 132 des DOS-Handbuchs leiten lassen. Die hier angegebenen 
Werte sind teilweise falsch. So muß z.B. im Byte 35 ein 10 (hex) 
anstatt eines OF(hex) stehen. 

Im Feld "BITMAP" werden, wie oben beschrieben, die Tracks 0 bis 16 
als belegt vermerkt. Track 17 muß auch noch belegt werden, da hier 
ja der Catalog steht. Danach wird mit der Prozedure "WRITEVTOC" das 
VTOC auf die Diskette gebracht. 
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Das Schreiben des Catalogs ist relativ einfach. Wenn man sich eine 
neu formatierte DOS-Diskette z.B. mit einem sog. Sektor-Editor an¬ 
schaut, stellt man fest, daß im Catalog bis auf die Bytes 1 und 2 
nur der Wert 0 vorkommt. Diese zwei Bytes geben an, auf welchem Sek¬ 
tor die Fortsetzung des Catalogs zu finden ist. Die Prozedur "WRITE- 
CAT" setzt diese Bytes entsprechend und schreibt insgesamt 15 Sekto¬ 
ren auf die Diskette auf dem Track 17. Wie aus Kapitel 2.5 bekannt 
sind die Sektoren etwas anders angeordnet als die POS-Blöcke. Um 
hier abzuhelfen benuzten wir wieder die Tabelle "SECLOC". 

Mit der Prozedur "FORMATPOS" wird das Directory auf die Diskette 
geschrieben. Das Aussehen des Directorys übernehmen wir aus Kapitel 
2.2. In der Prozedur "SETUPDIR" wird es mit den nötigen Informatio¬ 
nen gefüllt. Als Diskettenname geben wir "BLANK" an. Weiterhin wird 
wie oben beschrieben, die Anzahl der Blöcke auf 136 begrenzt. Das 
Datum lesen wir aus dem Speicher aus. Die Vorgehensweise hierfür ist 
in Kapitel 3.4 beschrieben. Schließlich wird das Directory mit der 
Prozedur "WRITEDIR" auf die Diskette geschrieben. 

Damit ist das Programm abgeschlossen. Man kann nun die Diskette 
unter DOS und POS verwenden. Dabei hat man fast gleichviel Platz, 
für POS 68 KByte und für DOS 72 KByte. 

Der Leser kann natürlich den Raum für POS weiter einschränken, indem 
im Directory weniger Blöcke vermerkt und im VTOC die entsprechenden 
Sektoren freigesetzt werden. 

Wichtige Prozeduren 

"GETUNITNO'' : Fragt den Benutzer, in welchem Laufwerk 
die zu bearbeitende Diskette liegt. 

"FORMATDOS" :• Schreibt die nötigen DOS-Informationen auf 
die Diskette 

"FORMATPOS" : Schreibt die nötigen POS-Informationen auf 
die Diskette 


Programm "DOSIPOS - TEDIXIT ** 

-C$S+> 

Programm dospos; 
type 

■C POS-Directory Definitionen > 

vname=stringC7D; < Ein Volumename > 
fname=stringC15D; { Ein Filename > 
daterec = packed record i das Datum > 
month: 0..12; 
day: 0..31; 

year: Q..100; 

end; 

fkind * (vol,bad,code,text,info,data,graf,foto,secr)$ { moegliche Filetypen > 
direntry = record < ein Eintrag im Directory > 

firstblock: integer; -C Block, bei dem das File anfaengt > 
lastblock: integer; { Block, bei dem das File endet > 
case filekind: fkind of 

■C nur beim Eintrag #0 > 
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vol,secr: (diskvol: vname; { Name der Diskette > 
blockno: integer; -C Anzahl der Bioecke > 
fileno:integer; { Anzahl der Files > 
accesstime: integer; -C unbenutzt > 
lastboot: daterec); { Datum, an dem die > 
■C zuletzt benutzt wurde > 

■C Normale File-Eintraege > 
bad,code,text, 
info,data,graf, 

foto: (filename: fname; -C Filename > 

endbytes: 1..512; < Bytes im letzten Block > 
lastaccess: daterec) { Datu, an dem das File } 

end; 

direc = arrayCO..77D of direntry; < Directory mit 78 Eintraegen > 

•C DOS-VTOC Definition > 


byte = 0..255; 

trackmap = packed array C0..31D of boolean 
vtoc_type = packed record 
unusedl 
eattrk 
catsec 
dosvers 
unused2 
volume 
unused3 
unused4 
unused5 
. maxpair 
unused6 
mask 
trkno 
secno 
byteno 
bitmap 
unused7 
end; 


byte; 
byte; 
byte; 
byte; 

packed array C4..5J of byte; 
byte; 
byte; 

packed array C8. 
byte; 
byte; 

packed array C40. 

packed array CO. 

byte; 
byte; 
integer; 

packed array C0..34D of trackmap; 

packed array C196..2553 of byte; 


37D of byte; 


47D of byte; 
of integer; 


var unitno:integer; 


procedure get_unitno; i Fragt Benutzer, auf welchem Laufwerk > 
var ch:char; < formatiert werden soll > 

begin 
repeat 

writeln(chr(12),'DOS-POS FORMATTER PROGRAM 7 ); 
write( 7 FORMAT WHICH DISK (4,5) ? 7 ); 
read(ch); 

until ch in C / 4 , , / 5 , 3; 
unitno:=ord(ch)-48; 
writeln; 

writelnC'NOW FORMATTING D'ISK IN DRIVE # 7 ,unitno); 
end; 

procedure formatdos; ■( Formatiert den DOS-Teil der Diskette > 
var seclocrarrayCO..15D of record 

block:integer; 
right:boolean; 
end; 

vtoc:vtoc_type; 
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procedure init; 
begin 

seclocC 03.block 
seclocC 13.block 
seclocC 23.block 
seclocC 33.block 
seclocC 43.block 
seclocC 53.block 
seclocC 63.block 
seclocC 73.block 
seclocC 83.block 
seclocC 93.block 
seclocC103.block 
seclocC113.block 
seclocC123.block 
seclocC133.block 
seclocC143.block 
seclocC153.block 
end; 


■C Initialisert Block-Sektor Umrechnungstabelle > 


seclocC 03, 
seclocC 13. 
seclocC 23, 
seclocC 33. 
seclocC 43. 
seclocC 53. 
seclocC 63, 
seclocC 73. 
seclocC 83, 
seclocC 93. 
seclocC103. 
seclocC113. 
seclocC123. 
seclocC133. 
seclocC143. 
seclocC153. 


right: 

right 

right 

right 

right: 

right: 

right: 

right: 

right: 

right: 

right: 

right: 

right: 

right: 

right: 

right: 


=false; 
=false; 
=true; 
=false; 
=true; 
-i alse; 
=true; 
=false; 
=true; 
=false; 
=true; 
=false; 
=true; 
=false; 
=true; 
=true; 


procedure setup_vtoc; -C Fuellt VTOC mit den gewuenschten Informationen > 

var ent,s:integer; 

begin 

with vtoc do begin 
unusedl:=0; 

cattrk:=17; i Catalog auf Track 17 > 

catsec:-15; < Sektor 15 > 

dosvers:=3; < Dosversion > 

fillchar(unused2,sizeof(unused2),chr(0)); 
volume:=254; i Volume > 
unused3:=0; 

fillchar(unused4,sizeof(unused4),chr(0)); 
unused5:=0; 

maxpair:=122; < max. Anzahl der Angaben in einer T/S Liste > 

fi1lchar(unused6,sizeof(unused6),chr(0)); 

maskC03:=-l; i alle 16 Bits auf 1 setzen > 

maskC13:=0; -C alle 16 Bits auf 0 setzen > 

trkno:=35; -C 35 Tracks mit je > 

seeno:=16; <16 Sektoren mit je > 

byteno:=256; < 256 Bytes > 

fillcharCbitmap,sizeof(bitmap),chr(0)); -C Alle Sektoren belegen > 
for cnt:=18 to 34 do -C Tracks 18 bis 34 frei > 
for s:=0 to 15 do 
bitmapCcnt,s3:=true; 

fillchar(unused7,sizeof(unused7),chr(0)); 
end; 
end; 


procedure write_vtoc; { Schreibt VTOC auf die Diskette > 
begin 

unitwrite(unitno,vtoc,256,136); 
end; 

procedure write_cat; -C Schreibt einen leeren Catalog auf die Diskette > 
var block : packed array CO..5113 of byte; 

of fset,t,sector:integer; 
begin 
t: =17; 

for sector:= 15 downto 1 do 
begin 

< Erst ganzen Block einiesen, da nur eine Haelfte veraendert wird > 
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uni t read (uni triQ, block, 512,136+seclocCsectorIl .block); 

■C linke oder rechte Haelfte veraendern ? > 
if seclocCsectorD.right 
then offset:=256 
eise offset:=0; 

{. ganzen Sektorinhalt loeschen > 
f illchar(blockCöf fsetll,256,chr(0)); 
i. Zeiger auf naechsten Catalog-Sektor setzen > 
if sector>l then begin 

blockCl+offsetD:=t; { Links setzen > 

blockC2+of fsetD:=sector-l; 
end 

eise begin < Ende des Catalogs > 
blockCI+of fsetD:=G; 
blockC2+of fsetD:=0; 
end; 

< Block zurueckschreiben > 

unitwriteCunitno,block,512,136+seclocCsectorD.block); 
end; 

end; 


begin 

init; 

setup_vtoc; 

write_vtoc; 

write_cat; 

end; 


procedure. formatpos;.-C Formatiert den POS-Teil der Diskette > 
var directorysdirec; 


procedure setup_dir; < Directory mit den gewuenschten Informationen fuellen > 
var sprchdatum : record case boolean of 

true : (datum:~daterec); 
false: (adresse:integer); 
end; 


begin 

with directoryCOD do begin { Nur Eintrag #0 setzen > 


firstblock:=□; 
lastblock:=5; 
filekind:=vol; 
diskvol: =/ BLANK 
blockno:=135; 
fileno:=0; 
accesstime:=ü; 

sprchdatum.adresse:= -21992; 
1 astboot: =sprchdatum. datum''; 
end; 
end; 


•C Directory-Beginn > 

< Directory-Ende > 

< Filetyp: vol > 

< BLANK als Name > 

< Nur 135 Bioecke! > 
■C Noch keine Files > 


Siehe Liste in Kap. 3.2 > 
Datum wie im Speicher > 


procedure write_dir; -C schreibt das Directory auf die Diskette > 
begin 

unitwrite(unitno,directory,sizeof(directory),2); 
end; 


begin 

setup_dir; 
write_dir; 
end; 
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begin 

get_unitno; -C 'unitno' einiesen > 

format_dos; < DOS-Teil formatieren > 

format_pos; -C POS-Teil formatieren > 

writeC' PUT SYSTEM DISK IN DRIVE #4 (<RET>)'); 

readln; 
end. 


2 . F” cd t. o „ & ± r~L neuer F'ilöt.yiz» 

Wie wir in Kapitel 2.2 gesehen haben, stellt POS eine ganze Reihe 
von Filetypen zur Verfügung. In Apple-Pascal werden normalerweise 
aber nur die Typen Text, Code und Data verwendet. 

Hit den zwei Prozeduren "PIXSAVE" und "PIXLOAD" nutzen wir einen der 
bisher nicht genutzten Filetypen aus, nämlich den Foto-Typ. Gleich¬ 
zeitig ermöglichen wir es, eine Graphikseite auf Diskette zu spei¬ 
chern. Dies war bishar nicht möglich. 

Dazu ist natürlich ein Trick notwendig. Er besteht darin, den Inhalt 
der Graphikseite zu einer Variablen zu machen. Dabei fassen wir eine 
8 KByte große Seite als PACKED ARRAY mit 8191 Bytes auf. Dann ist es 
noch nötig, unsere Variable bei Speieherste11e 8192 (hexadezimal 
$2000) beginnen zu lassen. Dies wird mittels eines Zeigers erreicht. 
Die genaue Arbeitsweise ist in Kapitel 3.1 beschrieben. 

Bis jetzt können wir eine Graphikseite unter einem bestimmten Namen 
auf die Diskette schreiben. Wie weisen wir diesem File den Typ FOTO 
zu ? 

Dies ist ziemlich einfach. POS setzt nämlich die Filetypen in Abhän¬ 
gigkeit vom Filenamen. Endet er mit ".FOTO", so ist es ein Fotofile. 

Der Leser kann dies ausprobieren, indem er in den Filer geht und mit 
dem M)ake-Kommando einige Files "macht". Dabei sollten Namen benutzt 
werden, die mit ".FOTO", ".INFO" oder ".GRAF" enden. Wird dann mit E 
das Directory aufgelistet, dann erscheinen in der letzten Spalte die 
ungewohnten, bis jetzt ungenutzten Filetypen. 

An unsere zwei Prozeduren wird also eine Filename übergeben, an den 
die Endung ".FOTO" angehängt wird. 

Wichtige Variablen und Typen 

"BILD" : 8191 Bytes großes Feld (Entspricht der Größe 

einer Hires-Seite) 

"BILDVAR" : Record, dessen Adresse im Speicher mittels 
eines Zeigers festgelegt werden kann. 

Entspricht der Struktur in Kapitel 3.1, nur 
daß hier nicht 1, sondern 8191 Bytes als 
Daten genommen werden. 

"PIX" : File für ein Hiresbild 

Wichtige Prozeduren 

"PIXSAVE" : Hängt ".FOTO" an den Filenamen an und legt 

die Variable "X" von Typ "BILDVAR" über die 
Hires-Seite. Diese wird dann mit "PUT" in 
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das File "PIX” geschrieben. 

"PIXLOAD" : Hängt ".FOTO" an den Filenamen an und liest 

mit "GET" ein Hires-Bild aus dem File "PIX". 
Legt dann die Variable "X" über die 
Hires-Seite und holt den Inhalt des Bildes 
aus dem Filepuffer. 


Progamm " R'OTO - TEXT " 

procedure pixsave (filename:string); < schreibt ein Bild aus > 

■C dem Hiresspeicher auf die Diskette > 
type bild = packed arrayCO..81913 of 0..255; 
bildvar = record case boolean of 

true: (adresse:integer); 
false:(zeiger:~bild) 
end; 

var pix: file of bild; 
x: bildvar; 

begin 

filename:=concat(filename/ .FOTO'); 
x.adresse:=8192; 
pix Ä :=x. zeiger''; 
rewriteCpix,filename); 
put(pix); 
close(pix,lock); 
end; 

procedure pixload (filenamesstring); < laedt ein Bild von der > 

f Diskette in den Hiresspeicher > 
type bild = packed arrayCO..81913 of G..255; 
bildvar = record case boolean of 

true: (adresse:integer); 
false: (zeiger:''bild) 
end; 

var pix: file of bild; 
x: bildvar; 

begin 

filename:=concat(filename / .FOTO 7 ); 
reset(pix,filename); 
get(pix); 

c1ose(pix,normal); 
x.adresse:=8192; 
x.zeiger'^pix''; 
end; 


Wer mit den zwei Prozeduren arbeitet wird zweierlei feststellen. 
Zunächst geht das Laden eines Bildes entschieden schneller als unter 
DOS 3.3. Dies hängt damit zusammen, daß POS allgemein schneller als 
DOS ist, nicht nur beim Laden von Fotos. Die zweite Eigenart der 
Prozeduren ist ein Nachteil. Beide verbrauchen nämlich über 8 KByte 
Speicherplatz, während sie aufgerufen sind. Ist durch das Hauptpro¬ 
gramm schon viel Speicher verbraucht, so kann es zu einem "STACK 
OVERFLOW"-Error kommen, der Datenverlust bedeutet. Man kann hier ab¬ 
helfen, indem man das Programm segmentiert. 
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2.Q Tx ti JT ±le»s tjciti. d Codef i 1 es 

In diesem Kapitel werden wir näher auf den Aufbau von Text- und 
Codefiles eingehen. Bei Textfiles wird dargestellt, wie die Editor- 
Informationen zu Beginn eines jeden Textfiles aussehen und bei den 
Codefiles werden wir uns das sogenannte "Segment Dictionary" an¬ 
schauen . 

Das Format von Textfiles ist im "Apple Operating System" Handbuch 
auf der Seite 266 beschrieben. Die dort angegebenen Informationen 
sind jedoch unvollständig. Es wird nur gezeigt, welche Bedeutung die 
sogenannten "DLE"'s haben. Auf sie gehen wir in Kapitel 5.2 näher 
ein. Über den Aufbau der Editorinformationen ist jedoch nichts vor¬ 
handen . 

Bei jedem Textfile sind die ersten zwei Blöcke reserviert für Infor¬ 
mationen, die der Editor benötigt. Erst im dritten Block beginnt der 
eigentliche Text. Daher nimmt ein leeres Textfile auch mehr als 
einen Block auf der Diskette ein. Die Informationen für den Editor 
sind im wesentlichen die, die man im Editor mit dem "SE"-Kommando 
verändern kann. Z.B. rechter oder linker Rand sind solche Werte. 
Wird ein Textfile z.B. mit "RESET" angesprochen, so werden die 
ersten zwei Blöcke automatisch überlesen. 

Wie fast alles in POS, lassen sich auch diese Editor-Informationen 
mit einem Record darstellen. Er ist in Bild 2.8.1 dargestellt. 


TEXTINFO: 
UNUSED1 
MARKERNAME 
UNUSED2 
MARKtÖRADREÖÖß 


PACKED RECORD 

PACKED ARRAY C 0. .3 3 OF CHAR; 
PACKED ARRAYCO..9,0..73 OF CHAR; 
PACKED ARRAYCO..93 OF CHAR; 

PACKED ARRA Y10::8 1 OP 1NTBÖERj 


AUTOINDENT 
FILLING 
TOKENDEF 
LEFTMARGIN 
RIGHTMARGIN 
PARAMARGIN 
COMMANDCH 
DATECREATED 


INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

CHAR; 

PACKED RECORD 


MONAT 

0 . 

. 12 

TAG 

0 . 

.31 

JAHR 

0 . 

.99 


LASTUSED 


UNUSED3 


END; 

: PACKED RECORD 


MONAT 

0 . 

.12 

TAG 

0 . 

.31 

JAHR 

0 . 

.99 


END; 

: PACKED ARRAYC0..3793 OF CHAR; 


END; 


Bild 2.8.1: Ein strukturierter Record für die Editorinformationen 


Wir gehen nun jedes einzelne Feld durch, und erklären seine Bedeu¬ 
tung . 

Das erste Feld "UNUSED1" besteht aus 10 Bytes, und ist unbenutzt. 
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Darauf folgt eine Liste der Namen der Marken ("MARKENNAME"). Es gibt 
maximal 10 Marken mit je 8 Zeichen. Sie werden hier als ein Feld von 
einzelnen Zeichen dargestellt. Ist das erste Zeichen eines Markenna- 
innns oin CMIR(O), *;r> i rI. Markn nicht qosntzl. . Dann kommen wie¬ 

der 10 unbenutzte Bytes ("UNUSED2"). 

Das Feld "MARKERADRESSE" enthält die Positionen der 10 Marken. Diese 
sind Integerwerte und geben an, auf welches Zeichen, relativ zum 
Textbeginn, eine Marke zeigt. 

Nun folgen die Informationen, die mit dem "SE"-Kommando angezeigt 
und verändert werden können. "AUTOINDENT","FILLING" und "TOKENDEF" 
geben an, ob die jeweilige Option gesetzt ist oder nicht. "LEFT- 
MARGIN","RIGHTMARGIN" und "PARAMARGIN" erhalten die Werte für den 
linken und rechten Rand, und wieweit bei einem neuen Absatz einge¬ 
rückt werden soll. "COMMANDCH" enthält ein reserviertes Zeichen. 
Wenn das "M)arg in"-Kommando eingegeben wird, und der Editor trifft 
auf dieses Zeichen am Beginn einer Zeile, so wird diese Zeile nicht 
neu formatiert. Dies ist nützlich, wenn man ein Formatierprogramm 
hat, in dem die Formatkommandos im Text enthalten sein müssen. Diese 
Kommandos fangen oft z.B. mit einem Punkt an, und gehören nicht zum 
eigentlichen Text. 

Die nächsten zwei Einträge ("DATECREATED" und "LASTUSED") geben an, 
wann der Text zum erstem Mal, und wann er zuletzt editiert wurde. 
Beide enthalten ein Datum, das als ein gepackter Record aus Tag, 
Monat und Jahr dargestellt wird. 

Schließlich folgen noch 380 unbenutzte Bytes ("UNUSED3"). 

Insgesamt ist dieser Record 512 Bytes groß. Er würde auf der Disket¬ 
te einen Block einnehmen. Jedoch sind bei Textfiles zwei Blöcke 
reserviert. Der zweite Block ist unter Apple Pascal 1.1 unbenutzt. 
Er wird von dem Standardeditor nicht angeprochen und ist mit dem 
Wert 00 gefüllt. Es gibt jedoch Editoren, die diesen zweiten Block 
für weitere Informationen nutzen. Auch könnte es eines Tages einen 
neuen Standardeditor geben, der auch beide Blöcke benutzt. Dann 
wären alle alten Textfiles schon darauf vorbereitet. Im Moment je¬ 
doch geht mit jedem Textfile ein Block Diskettenplatz unbenutzt ver¬ 
loren . 

Man kann diesen Record direkt mit der "BLOCKREAD" Prozedur aus dem 
ersten Block eines Textfiles einiesen. Dies ist in Kapitel 5.1 demon¬ 
striert . 

Der Aufbau von Codefiles ist im "Apple Pascal Operating System" auf 
den Seiten 266 bis 270 genau beschrieben. Wir wollen ihn hier noch¬ 
mals durchgehen. Es schließt sich ein Programm an, das die Informa¬ 
tionen über ein Codefile einliest und auf dem Bildschirm ausgibt. 

Block 0 (d.h. der erste Block) eines jeden Codefiles enthält das 

sogenannte "segment dictionary". Es enthält Informationen über jedes 
Segment des Codefiles. Hier ist anzumerken, daß im Grunde genommen 
jedes Codefile segmentiert ist. Bei einem normalen Programm, das 
nicht die "SEGMENT"-Anweisung benutzt, wird nur das erste Segment 
benutzt. Andere Programme können bis zu 15 weitere Segmente benutzen 

Das "segment dictionary" ist ein strukturierter Record. Die ersten 
fünf Einträge sind Felder mit 16 Elementen, je eins für jedes Seg¬ 
ment . 
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Der erste Eintrag "DISKINFO" gibt mit den Einträgen "CODELENG" und 
"CODEADDR" an, wie lang der Code für ein Segment ist, und wo im File 
er beginnt. Dann folgen die Namen der Segmente ("SEGNAME"). Jeder 
Name kann 7 Zeichen lang sein. Der Name des ersten Segments ent¬ 
spricht immer dem Namen, der hinter der Anweisung "PROGRAM" am An¬ 
fang eines jedes Programmtextes steht. 


Im Eintrag "SEGKIND" folgt eine 
ment es sich handelt. Hier gibt 

Bei "LINKED" handelt es sich um 
Eventuelle Units oder Externais 
men keine vor. 


Angabe darüber, um was für ein Seg 
es 8 Möglichkeiten. 

einen Code, der so ausführbar ist 
sind schon eingebunden, oder es kom 


"HOSTSEG" ist Code, der Externais aufruft. Diese sind noch nicht 
eingebunden, wodurch der Code noch nicht ausführbar ist. "SEGPROC" 
wird auf dem Apple nicht benutzt. 

Bei einem "UNITSEG" handelt es sich um eine Unit. Sie ist nicht aus¬ 
führbar, und muß erst noch in ein Programm eingebunden werden. 

Ein "SEPRTSEG"-Code ist einzeln compiliert worden. Das ist unter 
Apple-Pascal nur der Fall bei Assemblerunterprogrammen. Der Code, 
den der Assembler erzeugt, hat diesen Typ. 

"UNLINKEDINTRINS" bezeichnet Code für eine Intrinsic Unit. Es wurden 
allerdings notwendige Units oder Externais noch nicht eingebunden. 
Dagegen ist "LINKEDINTRINSIC" eine komplette Intrinsic-Unit, die 
fertig ist. Dies trifft bei allen Units der "SYSTEM.LIBRARY" zu. 


Der Typ "DATASEG" wird zusammen mit einer Intrinsic-Unit verwendet. 
Er gibt an, wieviele Bytes die entsprechende Intrinsic-Unit für 
Variablen benötigt. Diese werden daraufhin reserviert. Z.B. die 
"Turt1egraphics" Unit hat ein solches Datensegment. 


Der nächste Eintrag im "segment dictionary" heißt "TEXTADDR". Wenn 
ein Programm, das eine normale oder eine Intrinsic-Unit benutzt, 
compiliert wird, benötigt der Compiler Informationen über die in der 
Unit enthaltenen Prozeduren und Funktionen. Diese werden dann in der 
Unit im Textformat bereitgehalten. "TEXTADDR" gibt an, an welcher 
Stelle innerhalb des Unit-Codes sie zu finden sind. Handelt es sich 
nicht um eine Unit, so steht hier immer der Wert Null. 


Als nächstes kommen einige weitere Informationen über ein Segment 
("SEGINFO"). In "SEGNUM" steht, unter welcher Segmentnummer das je¬ 
weilige Segment intern laufen soll. Diese Nummer kann von 0 bis 255 
gehen und hat mit der Nummer des Segments innerhalb des Codefiles 
nichts zu tun. 


"MTYPE" gibt an, um welchen Code es sich handelt. Das UCSD-Pascal- 
System gibt es auf verschiedenen Computern mit verschiedenen Prozes¬ 
soren. Wenn z.B. in diesem Feld der Wert 8 steht, so handelt es sich 
um eine Assemblerroutine für den 6800-Prozessor. Der Apple-6502 hat 
den Wert 7. Der normale P-Code auf dem Apple erhält den Wert 2. Bei 
Apple-Files kommt auch noch der Wert 0 vor, der angibt, daß es sich 
um Code handelt, der nicht identifiziert werden konnte. 

Der Eintrag "VERSION" gibt an, unter welcher Pascalversion der Code 
erzeugt wurde. Hier steht für Apple-Pascal 1.1 der Wert 2. Der Vor¬ 
gänger, die Version 1.0 hat der Wert 1. 
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Das hier abgedruckte Programm liest für ein bestimmtes Code-File 
diese Informationen ein, und gibt sie auf dem Bildschirm aus. Es ist 
interessant, mit dem Programm etwas zu "spielen", und sich z.B. den 
"SYSTEM.EDITOR" anzuschauen. Manchmal erlebt man auch Überraschun¬ 
gen. Es kommt ab und zu vor, daß in dem Feld "SEGNAME" ein Copy¬ 
right-Vermerk untergebracht ist. 

Wie aus dem Handbuch ersichtlich, enthalten Units noch mehr Informa¬ 
tionen. Wir werden hier nicht weiter darauf eingehen, zumal es das 
Programm "LIBMAP" auf der Diskette "APPLE3:" gibt. Damit hat man 
Zugriff auf diese weiteren Informationen. Hier noch ein Tip: man 
kann "LIBMAP" auch auf normale Codefiles anwenden, man ist nicht auf 
Units beschränkt. 


Pr ogr a.mm " C ODEF I IL-ED . TEXT *' 
program codefile; 


type segment_directory = 


record 

diskinfo: 


segname 


segkind 


textaddr: 
seginfo : 


arrayCO..153 of 
record 

code1eng,codeadd r:integer; 
end; 

arrayCO..153 of 

packed arrayCO..73 of char; 
arrayCO..153 of 

(1inked,hostseg,segproc,unitseg, 
seprtseg,uniinked_intrins, 

1inked_intrins,dataseg); 
arrayCO..153 of integer; 
packed arrayCO..153 of 
packed record 


intrins_segs: 
end; 


segnum : 
mtype : 
unused : 
Version: 
end; 

set of 0.. 


0..255; 

0..15; 

0 .. 1 ; 

0..7; 

31; 


var info:segment_directory; 
codef:file; 
fnamejstring; 

procedure hole_name; 
begin 

write('Name des Codefiles >'); 
readln(fname); 
end; 

procedure lese_info; 
var dummy:integer; 
begin 

reset(codef,fname); 
dummy:=blockread(codef,info,l); 
closeCcodef); 
end; 

procedure gebe_info_aus; 
var i,j:integer; 
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begin 

writelnCehr(12)); 

writelnC' +—+-+-+- 

writelnC 7 ! #!codel!codea! name 

writelnC 7 +—+-+-+- 

for i:= ü to IS do 
with info do begin 
write(' ! 7 ,*i:2, 7 ! 7 ); 
write(diskinfoCiT.codeleng:5, 
for j:=0 to 7 do 

writeCsegnameCi,jD); 
writeC 7 ! 7 ); 
case segkindCiD of 
linked 
hostseg 
segproc 
unitseg 
seprtseg 

unlinked intrins 


kind 


-+ - + - +-+-+') • 

!taddr!num!mtyp!vers! 7 ); 
-+-+-+-+-+'); 


! 7 ,diskinfoCiU.codeaddr:5, 7 ! 7 ); 


writeC 7 
writeC 7 
write( 7 
writeC 7 
writeC 7 


linked 
host seg 
seg proc 
unit seg 
seprtseg 


linked_intrins: writeC 7 
dataseg : writeC 7 

end; 

writeC 7 ! 7 ); 

writeCtextaddrCiD:5, 7 ! 7 ); 
with seginfoCiD do 
begin 

write(segnum:3, 7 ! 7 ); 
write(mtype:4, 7 ! 7 ); 
writeln(version:4, 7 ! 7 ); 
end; 

end; 

writelnC 7 +—+-+-+- 

end; 


writeC'unlnkd int 
lnkd int 
data seg 


-+ 7 ); 


begin 

hole_name; 
lese_info; 
gebe_info^aus; 
end. 


2-9 Wenn READLN z x_i 1 slittl g s s^m ± s t- 

Wer unter Pascal einen Text aus einem File einiesen will,* der öffnet 
das betreffende File und liest dann Strings mit der Prozedure 
"READLN" ein. Dies funktioniert ohne Zweifel. Jedoch ist die "READ¬ 
LN" -Prozedur äußerst langsam. Zum Einlesen von 100 Strings, die 40 
Zeichen lang sind, benötigt das System knapp 50 Sekunden. Dies ist 
ziemlich lang und in diesem Kapitel wird beschrieben, wie man die 
Einlesezeit um über 90 Prozent verbessern kann. 

Daß unsere Lösung allerdings nur auf das Einlesen eines Textes mit 
bekannter Länge beschränkt ist, wird am Ende des Kapitels näher 
beschrieben. 

Da wir die Prozedur "READLN" natürlich nicht direkt ändern können, 
müssen wir sie von Grund auf neu schreiben. Wir gehen dabei jedoch 
einen anderen Weg, als die Standardprozedur. Diese benutzt nämlich 
den "GET"-Befehl, was auch für die Langsamkeit der Prozedur verant¬ 
wort 1ich ist. 
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Zunächst muß uns der Aufbau eines Textfiles klar sein. Wie in Kapi¬ 
tel 2.0 beschrieben, beinhalten die ersten zwei Blöcke eines 
Textfiles Informationen für den Editor. Danach beginnt der eigentli¬ 
che Text. Dessen Aufbau ist im "Apple Pascal Operating System" Hand¬ 
buch auf der Seite 266 kurz dargestellt. 

Ein Textfile gliedert sich in eine bestimmte Anzahl von sogenannten 
"Seiten". Jede Seite ist 1024 Bytes groß und nimmt je zwei Blöcke in 
einem File ein. 

Jede Seite besteht aus einer bestimmten Anzahl von Zeilen, die je¬ 
weils mit einem "CR"-Zeichen (ASCII-Code 13) abgeschlossen werden. 
Nun wird hier noch ein Trick angewandt, mit dem Disketteplatz ge¬ 
spart werden soll. In den meisten Texten, vor allem in Pascal-Pro¬ 
grammtexten sind die Zeilen eingerückt, d.h. sie beginnen mit einer 
bestimmten Anzahl von Leerstellen. Würden die Zeilen nun in dieser 
Form abgespeichert, so bestünde ein Großteil des Files aus Leerstel¬ 
len. POS kürzt diese Leerstellen sozusagen ab. 

Ist das erste Zeichen in einer Zeile in einem Textfile ein "DLE"- 
Zeichen (ASCII-Code 16), so bedeutet dies, daß die Zeile eingerückt 
ist. Der nächste Wert im File gibt nun an, um wieviele Leerstellen. 
Erst danach beginnt der Inhalt der Zeile. Damit wird relativ viel 
Platz auf der Diskette eingespart. Eine Zeile, die um zehn Zeichen 
eingerückt ist, und insgesamt eine Länge von 30 Zeichen hat, nimmt 
in einem Textfile nur noch 22 Bytes ein. 

Wenn eine Seite mit Zeilen gefüllt wird, dann benötigen sie alle 
zusammen in den wenigsten Fällen genau 1024 Bytes. Der Rest einer 
Seite, in dem keine Zeile mehr Platz gefunden hat, wird mit Nullen 
(CHR(0)) aufgefüllt. 

Nochmals eine kurze Zusammenfassung zum Aufbau eines Textfiles. 
Jedes Textfile besteht aus den Editorinformationen und einer Anzahl 
von Textseiten: 


+ - + - + - + - + 

! Editorinformationen ! Textseitel ! ... ! Textseite n ! 

+-+-+-+-+ 

Blöcke 0/1 Blöcke 2/3 Blöcke 2n/2n+l 


Jede Textseite ist 1024 Bytes groß und gliedert sich in Zeilen. Die 
restlichen unbenutzen Bytes werden mit Nullen aufgefüllt. 


! abcdefgCR ! abcdefgCR ! ... ! 00000000 ! 



Zeile 1 Zeile 2 


Nullen 


Jede Zeile wird mit einem "CR" Zeichen (CHR(13)) abgeschlossen.Han¬ 
delt es sich um eine Zeile, die eingerückt ist, so ist das erste 
Zeichen ein "DLE". Danach folgt ein Wert, der angibt, wieviele Leer¬ 
stellen der Zeile vorangehen. Dieser Wert ist 32 + Anzahl der Leer¬ 
stellen. Dann folgen die eigentlichen Textzeichen. Es hat sich her¬ 
ausgestellt, daß auch bei den meisten Zeilen, die nicht eingerückt 
sind, ein "DLE" vorangeht. 
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+ - + - + + - + - + 

! DLE ! Wert ! ! Textzeichen abcdefg... ! CR ! 

+ - + - + + - + - + 

Nur bei ein¬ 
gerückten 
Zeilen 


Nun zurück zu unserem Problem. Für unser "READLN", wir nennen es 
"FREADLN", benutzen wir die "BLOCKREAD"-Funktion. Wir lesen dabei 
jeweils eine Seite in eine Variable ein. Aus welchem Block in dem 
File die nächste Seite eingelesen werden muß halten wir in "BLOCK¬ 
POINTER" fest. Das Feld "SEITE" enthält nun eine Textseite. 

Damit wir wissen, wo die nächste Zeile innerhalb der Seite beginnt, 
brauchen wir "BUFFERPOINTER". Nach dem Einlesen einer Seite wir 
"BUFFERPOINTER" auf Null gesetzt. 

An "FREADLN" wird ein String ("S") als variables Parameter überge¬ 
ben. Wir schauen nun, ob das Zeichen, auf das "BUFFERPOINTER" gerade 
zeigt ein DLE ist. Ist dies der Fall, so schauen wir noch den näch¬ 
sten Wert an, und spannen vor "S" die entsprechende Anzahl von Leer¬ 
zeichen . 

An der Stelle, auf die "BUFFERPOINTER" nun zeigt, beginnen die Text¬ 
zeichen der Zeile. Mit der "SCAN"-Funktion stellen wir fest, wo sich 
das abschließende "CR"-Zeichen der Zeile befindet. Wir wissen nun, 
wo die Textzeichen der Zeile beginnen, und wo sie enden. Wir müssen 
noch die einzelnen Zeichen in den String "S" übertragen. 

Da es sich bei "SEITE" um ein Feld und bei "S" um einen String han¬ 
delt, ist eine Übertragung per "COPY" nicht möglich. Eine Schleife, 
in der die Zeichen einzeln übertragen werden würden, wäre zu lang¬ 
sam. Wir bedienen uns hier der "MOVELEFT"-Prozedur, wobei wir die 
entsprechende Anzahl von Bytes aus "SEITE" nach "S" übertragen. 
Damit bei "S" die Längenangabe korrekt wird, füllen wor "S" vorher 
mit Leerzeichen. 

Wir korrigieren nun noch den "BUFFERPOINTER", und haben eine Zeile 
eingelesen. Da "BLOCKREAD" nur mit unbestimmten Files arbeitet, muß 
das File, aus dem gelesen werden soll als "FILE" und nicht als 
"TEXT" deklariert werden. 

Zum Öffnen des Files muß die Prozedure "FRESET" benutzt werden. Sie 
liest die erste Textseite in "SEITE" ein, und setzt "BLOCKPOINTER" 
und "BUFFERPOINTER" auf Ausgangswerte. 

In dem abgedruckten Text gibt es noch die Prozedur "FCLOSE". Sie 
schließt das File. Im Grunde genommen ist sie nicht als einzelne 
Prozedur nötig. Man kann den Aufruf von "FCLOSE" auch mit "CLOSE(F)" 
ersetzen. 

Die mit dem Beispielprogramm erreichten Geschwindigkeitssteigerungen 
sind enorm. Mit der normalen "READLN"-Prozedur braucht das Programm 

49.2 Sekunden, um 100 Textzeilen einzulesen. Mit dem abgedruckten 
Programm waren nur 3,8 Sekunden nötig. Dies ist ein Steigerung um 

92.2 Prozent ! 

Diese Steigerung bringt einige Nachteile mit sich. Zunächt muß für 
jedes File eine eigene Prozedur geschrieben werden. Es ist in Apple- 
Pascal nicht möglich, ein File als Parameter an eigene Prozeduren zu 
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übergeben. Beim eingebauten "READLN" ist dies mit "READLN(F,S)" er¬ 
laubt . 


Der zweite Nachteil ist, daß vorher bekannt sein muß, wieviele Zei¬ 
len sich in dem Textfile befinden. "FREADLN" erkennt nicht, wann der 
Text zuende ist. Man kann natürlich feststellen, ob über das Fileen¬ 
de hinausgelesen werden soll. Ein Fehler tritt allerdings bei der 
letzten Seite auf. Handelt es sich um einen Text, der in einer frü¬ 
heren Version länger war, so befinden sich in der letzten Seite noch 
weitere Textzeichen. Diese werden bei "FREADLN" noch miteingelesen. 
Man kann dies gut mit dem File "SYSTEM.WRK.TEXT" ausprobieren. Die 
Information, • wieviel Bytes in der letzten Seite gültig sind, steht 
im Directory (siehe Kap. 2.2). Man müßte also zusätzlich das Direc¬ 
tory einiesen, um das Ende des Textes erkennen zu können. Im Kapitel 
5.2 wird "FREADLN" auf diese Art verbessert. 

Wenn jedoch nur bestimmte Texte eingelesen werden sollen, ist 
"FREADLN" gut geeignet. Ein Anwendung wäre das Einlesen von Hilfs¬ 
texten für ein Programm. Hier werden die Wartezeiten während des 
Diskettenzugriffs minimiert. 

Wichtige Variablen und Prozeduren 

"F" : File, das zum Einlesen eines Textfile 

benutzt wird 

"SEITE" : Bytefeld, das eine Seite des Textfiles 
aufnimmt 

"BUFFERPOINTER" : Zeigt auf das nächste Zeichen 

innerhalb von "SEITE", das gelesen wird 

"BLOCKPOINTER" : Enthält Nummer des Blocks innerhalb 

des Textfiles, bei dem die nächste 
Textseite beginnt 


LEER" 


String der 120 Leerzeichen enthält. (Könnte 
auch als Konstante deklariert werden) 


"FRESET" 

"FREADLN" 
"FCLOSE" 


Öffnet ein Textfile und liest die erste 
Textseite in "SEITE" ein 

Liest einen String aus dem Textfile 

Schließt das Textfile 


Pr og r a.mm " ETAST - 'T’EZXIT' " 
program fast; 
var 

< Variablen, die von "FRESET","FRAEDLN" und "FCLOSE" benutzt werden > 
f:file; 

seitespacked arrayCO..1023U of char; 
buf ferpointer:integer; 
blockpointer:integer; 

leer:stringC120D; 

•C Variablen, die von Hauptprogramm benutzt werden > 
s:string; 
isinteger; 
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procedure freset(nsstring); -C Oeffnet das File mit dem Namen 7 N 7 > 

var dummy:integer; 

begin 

reset(f,n); 

dummy:=blockread(f,seite,2,2); 
buff erpointer:=0; 
blockpointer:=4; 


end; 


•C Erste Seite einiesen > 

{ Zeichenzeiger auf das erste Zeichen setzen > 

< Blockzeiger auf die naechste Seite im > 

< File setzen > 


procedure freadln(var ssstring); { Den String 'S 7 aus dem File lesen > 
var n,no,start2,dummy:integer; 


begin 
s: =// ; 

if (seiteCbufferpointerD=chr(0)) or 

(bufferpointer=1024) then { Eventuell naechste Seite einiesen > 
begin 

dummy;=blockread(f,seite,2,blockpointer); 
blockpointer:=blockpointer+2; 
buf ferpointer:=0; 
end; 

if seiteCbufferpointerD=chr(16) < DLE !> 
then begin 

bufferpointer:=buf ferpointer+1; 

n:=ord(seiteCbufferpointerD); { Anzahl der Blanks holen > 
buf f erpointer :=*buf ferpointer+1; 

s;=copy(leer,l,n); < Blank an den String setzen > 
end; 

no:=scan(1024,=chr(13)-,seiteCbuf ferpointerD); < Nach CR suchen > 
if no>0 
then 
begin 

start2:=length(s); 

s:=concat(s,copy(leer,l,no)); -C String zunaechst mit Blanks fuellen > 
moveleft(seiteCbufferpointerD,sCstart2+13,no); < Tatsaechliche Zeichen > 
bufferpointers^bufferpointer+no+1; -C in den String bringen, und > 

end < Zeichenzeiger korrigieren > 

eise bufferpointers=bufferpointer+1; 

end; 


procedure fclose; -C File schliessen > 
begin 


close(f); 
end; 

begin 

leerst' 

leers=concat(leer,leer,leer); < 


write(chr(7), 7 ); < 

freset( 7 test.text 7 ); < 

for i:= 1 to 100 do 
begin 

f readln(s); 
end; 

write(chr(7), 7 ## 7 ); { 

fclose; -C 

end. 


' ^ » 

"LEER" mit 120 Blanks fuellen > 


Startsignal zum Zeitmessen > 
Testfile oeffnen > 
100 Zeilen einiesen > 

Stopsignal zum Zeitmessen > 
Testfile schliessen > 
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2.10 Mol~ir~ Platz auf d e? ra Di s J< e? t t_ e? r~i 

Eine normale POS-Diskette hat 280 Blöcke, d.h. sie kann 140 KByte 
Daten aufnehmen. Sie ist in 35 Tracks eingeteilt. Dies ist der Fall 
bei Benutzung der normalen Apple- Laufwerke. DOS und POS sind hier 
zwar auf 35 Tracks eingestellt, dies ist aber noch nicht die maxi¬ 
male Anzahl von Tracks, die ein Laufwerk hardwaremäßig ermöglicht. 
So ist bei einem Apple-Laufwerk noch ein 36. Track vorhanden. Er 
wird aber nicht benutzt und nicht formatiert. Wäre er formatiert, so 
wäre seine Benutzung kein Problem, und man hätte 4Kbyte mehr Platz 
auf der Diskette. 

Was uns fehlt ist ein Programm, das eine Diskette auch auf 36 Tracks 
formatieren kann. Das bei Pascal mitgelieferte Programm "FORMATTER" 
benutzt normalerweise auch nur 35 Tracks. Es ist aber möglich, mit 
diesem Programm auch 36 oder mehr Tracks zu formatieren. 

Wir müssen dazu das File "FORMATTER.DATA" verändern. In diesem File 
steht eine Assemblerroutine zum Formatieren und ein Datenblock, in 
dem sich ein "leeres" Directory für eine neuformatierte Diskette 
befindet. Man kann hier an zwei Stellen eingreifen. 

In dem Maschinensprachtei1 ist eine Routine, die die Diskette Track 
für Track formatiert. Dabei wird bei Track 0 angefangen und bis 
Track 35 formatiert. Logischerweise ist 35 ein Abbruchwert für die 
Formatierung, der auch in der Routine vorkommt. Wenn wir an dieser 
Stelle einen anderen Wert einsetzen, so gilt dieser als die maximale 
Anzahl der Tracks. Setzen wir eine 36 ein, so wird auch der bis 
jetzt ungenutzte 36. Track formatiert. Dieser Abbruchwert befindet 
sich im 156. Byte des Files. 

Wollen wir ihn mit einem Programm ändern, so lesen wir einfach den 
ersten Block des Files mit "BLOCKREAD" ein, verändern das 156. Byte 
und schreiben den Block mit "BLOCKWRITE" wieder zurück. 

Damit könnten wir aber noch nicht die zusätzlichen 8 Blöcke, die 
durch den neuen Track entstehen nutzen. Dazu muß noch die Directory¬ 
angabe, in der steht, wieviele Blöcke die Diskette hat, geändert 
werden. Man könnte nach der Formatierung in den Filer gehen und das 
Z)ero-Kommando benutzen. Man wird dann gefragt, ob sich 280 Blöcke 
auf der Diskette befinden. Antwortet man mit "N", so kann man einen 
Wert eingeben. Um den 36. Track mitzubenutzen müßte man "288" einge¬ 
ben. Dies ist jedoch umständlich, da sich in "FORMATTER.DATA", wie 
beschrieben, ein "leeres" Directory befindet. Wir müssen nur noch 
wissen, wo die Angabe über die Anzahl der Blöcke steht, und können 
hier den entsprechenden Wert einsetzen. Die Anzahl der Blöcke wird 
in einem 16-Bit- Wert festgehalten, der bei Byte $A0E im File befin¬ 
det. Diese Bytes stehen im 5. Block des Files. Bei der Änderung 
dieses Wertes gehen wir wie oben vor. 

Das hier abgedruckte Programm übernimmt diese Aufgaben automatisch. 
Es stellt fest, wieviele Tracks in "FORMATTER.DATA" angegeben sind, 
und fragt den Benutzer dann nach einer neuen Trackanzahl. Daraufhin 
wird "FORMATTER.DATA" wie oben beschrieben, verändert. 

Man kann nun mit den normalen Formatierprogramm auch Fremdlaufwerke 
benuzten, die meistens 40 bzw. 41 Tracks haben. Und man kann sich 
auf den normalen Applelaufwerken 8 Blöcke mehr Platz schaffen, indem 
man den 36. Track ausnutzt. 
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^ jt og xr amm '• FORMPTCH . TEXT ** 

program formatpatch; 

var f:file; 

blockspacked arrayCO..511D of 0..255; 
tracks,neutracks:integer; 

procedure werte_lesen; < Den Wert fuer die Trackanzahl aus > 
var dummy:integer; < FORMATTER.DATA holen, mit dem > 

begin < FORMATTER gerade arbeitet. > 

reset(f,'#4:formatter.data'); 

dummy:=blockread(f,block,l,0); 
tracks:=blockC156T; < Byte $9B (hex) > 

close(f); 
end; 

procedure werte_schreiben; { Die neuen Werte fuer die Anzahl > 
var dummy:integer; { der Tracks und der Bioecken in > 

begin -C FORMATTER.DATA schreiben. > 

resetCf,'#4:formatter.data'); 

dummy:=blockread(f,block,1,0); 
blockC1563:=neutracks; < Byte $9B (hex) > 
dummy:=blockwrite(f,block,1,0); 

dummy:=b1ockread(f,block,l,5); 

blockC14I]: = (neutracks#8) mod 256; < Byte $A0E (hex) > 
blockC153:=(neutracks#8) div 256; i Byte $AÜF (hex) > 
dummy:»blockwrite(f,block,1,5); 

close(f); 
encl; 

begin 

writeln('- ' ) ; 

writeln( / Patchen von FORMATTER.DATA'); 

writeln('-'); 

writeln; 
werte_lesen; 

writeln('Momentan formatiert FORMATTER mit'); 
writeln(tracks,' Tracks, d.h. mit # ,tracks*8,' Bioecken'); 
writeln; 

write('Neue Trackanzahl :'); 

readln(neutracks); 

werte_sch reiben; 

writeln; 

writeln; 

writeln('FORMATTER formatiert nun mit'); 

writeln(neutracks,' Tracks, # d.h. mit ',neutracks#8,' Bioecken') 
end. 
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Nachdem wir einige Utilities für das Pascal Betriebssystem entwik- 
kelt haben, wenden wir uns nun der Sprache Pascal selber zu. Unser 
Ziel ist es, einige neue Befehle einzuführen. Daß dabei nicht der 
Compiler selbst verändert werden kann, sondern nur mit Tricks und 
neuen Prozeduren gearbeitet werden kann, liegt in der Natur eines 
Compilers. 

Weiterhin werden wir den P-Code Interpreter genauer untersuchen. Da¬ 
bei soll allerdings nicht auf seine Arbeitsweise eingegangen werden, 
da diese schon in den Pasca1-Handbüchern behandelt wird. Hingegen 
wird eine Liste vorgestellt, die angibt, in welchen Speicherberei¬ 
chen welche internen Routinen stehen. 

Der Leser sollte bedenken, daß die folgenden Tricks nicht der Pas¬ 
cal-Philosophie folgen. Programme, die sie benutzen sind nicht mehr 
transportabel und können nicht ohne weiteres auf andere Computer und 
Compiler übertragen werden. Wer jedoch Programme schreibt, die nur 
unter Apple-Pascal 1.1 laufen sollen, der also nicht auf Transporta¬ 
bilität achten muß, der sollte diese Tricks ruhig anwenden. Sie er¬ 
weitern die Grenzen von Pascal, an die man leider sehr oft stoßen 
kann. Sie gleichen die Lücken aus, die in Apple-Pascal bestehen. 


3 . 1 *■ PEEK •• •’ POKE ’* 

sltljc c: l~i ± n Pas ca 1 

Von BASIC sind die. zwei Befehle "PEEK" und "POKE" bekannt. "PEEK" 
ergibt den Inhalt einer angegebenen Speicherstellen und "POKE" ver¬ 
ändert ihn. Im BASIC des Apple II, APPLESOFT, werden die Befehle 
meistens im Zusammenhang mit der Bildschirmausgabe, der Tastatur und 
den Paddies verwendet. 

Im UCSD Pascal sind diese beiden Befehle nicht vorgesehen. Es ist 
nicht möglich, z.B. festzustellen, ob ein Knopf an den Paddies ge¬ 
drückt ist, ohne die "APPLESTUFF"-Unit zu benutzen. (In BASIC wäre 
die einfach über "PEEKC-16287)" möglich.) 

Ein Möglichkeit, eine "PEEK" oder "POKE" Routine zu definieren wäre, 
ein Maschinensprachen-Programm zu schreiben, an das eine Adresse und 
eventuell einen Wert übergeben wird. Dazu wären ein Lauf des Assem¬ 
blers und ein Lauf des Linkers für jedes Programm nötig. 

Es geht aber auch in Pascal. Daß dies günstiger ist, ist offenbar: 
Es fallen der Assembler- und der Linkerlauf weg. Die Pascal Lösung 
beruht auf der Verwendung von Pointers und Recordvarianten. 

Bei Recordvarianten werden in der Variablendefinition verschiedene 
Stukturen angegeben, die der Record in Abhängigkeit eines Record¬ 
felds annehmen kann. Dieses Feld wird in der Fachsprache "TAGFIELD" 
genannt. Das sieht z.B. so aus: 

VAR BEISPIEL: RECORD CASE SCHALTEN:INTEGER OF 
0: (CH:CHAR); 

1: (KETTE:STRING); 

2: (WERT:INTEGER) 

END; 

Das tatsächliche Aussehen des Records hängt nun vom Wert "BEISPIEL. 
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Das tatsächliche Aussehen des Records hängt nun vom Wert "BEISPIEL. 
SCHALTER" ab. Wenn er 1 annimmt, dann ist das zweite Feld des 
Records der String "KETTE". Wenn "BEISPIEL.SCHALTER" den Wert 2 an¬ 
nimmt, dann ist es das Integer "WERT". Der Compiler reserviert für 
dieses zweite Feld sovieie Bytes, wie die größte Variante benötigt, 
für "BEISPIEL" also 81 Bytes für "KETTE". Nimmt "BEISPIEL.SCHALTER" 
2 an, so bleiben 79 Bytes unbenutzt. 

Der zweite Trick bei "PEEK" und "POKE" ist die Verwendung von Poin¬ 
ters. Ein Pointer zeigt auf eine Speicheradresse. Es wird angenom¬ 
men, daß die dem Pointer zugeordnete Variable dort im Speicher 
steht. Normalerweise werden diese Pointer nur von einer Variablen 
auf die andere übergeben, d.h. der eigentliche Wert interessiert 
nicht und hat nur interne Bedeutung. Es ist aber auch möglich, einem 
Pointer einen Wert zuzuweisen. 

Es ist nun nötig, beide Tricks zu kombinieren. Es ergeben sich fol¬ 
gende Typendefinitionen: 


Programm "PEEK-D.TEXT" 


type 

byte = 0..255; 

spchrinhalt = packed array[0..03 of byte; 
spchrstelle - record case boolean of 

true: (adresse:integer); ( Zeiger ) 

false:(inhalt:^spchrinhalt) C Inhalt ) 
end; 


"BYTE" ist der Wertebereich, den ein Speicherinhalt annehmen kann. 
Würden wir "BYTE" für den Inhalt einer Speicherzelle nehmen, so er¬ 
hielten wir falsche Ergebnisse. Denn im UCSD-Pascal beginnen unge- 
packte Variablen immer an Anfang eines 16-Bit Wortes. Es wäre also 
nicht möglich, z.B. den Speicherinhalt von 1 zu lesen, da das erste 
16-Bit Wort bei 0 beginnt. Wir würden den Inhalt von 0 erhalten. 

Dieses Problem besteht nicht bei gepackten Feldern. Sie können über¬ 
all beginnen. Wir definieren einfach ein gepacktes Feld mit nur ei¬ 
nem Element. Mit diesem TYPE "SPCHRINHALT" können wir arbeiten. 


Progr amm " PEEK-P - TEXT ** 

procedure poke(adresse:integer; inhalt:byte); 

var dummy:spchrste11e; 

begin 

dummy.adresse:=adresse; 
dummy.inhalt~ C0 3: = inha11; 
end; 

function peekCadresse:integer): byte; 

var dummy:spchrstelle; 

begin 

dummy.adresse:=adresse; 
peek:=dummy.inhalt^C 0 3; 
end; 
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'Der Speicher sieht nun so aus: 


ADRESSE ! 


INHALT ! 


! zeigt auf 

+- 

(16-Bit Wort) 


-+ 

(8-Bit Byte) 


Bild 3.1.1: Wirkung von PEEK/POKE 


Anwendungen dieser "PEEK/POKE" Prozeduren finden sich in den folgen¬ 
den Kapiteln. 


3.2 Wo f~ i nd e ich wsl s *? 

— o ± ri o fc>ösor~iLcior~o L ± s t ö 

Die folgende Liste ist ein Atlas für Apple-Pascal 1.1. Es werden, 
mit Ausname von Page 0, der Inhalt und die Bedeutung aller Speicher¬ 
stellen beschrieben. Teilweise sind die hier gegebenen Informationen 
für den Pascalprogrammierer relativ unwichtig. Wer jedoch mit dem 
Assembler arbeitet, der findet hier hilfreiche Adressen. Was man mit 
dieser Liste von Pascal aus anfangen kann, wird in den folgenden 
Kapiteln exemplarisch dargestellt. 

Die Liste wurde aus amerikanischen Publikationen zusammengestellt 
und durch eigene Untersuchungen vervollständigt. Der Leser sollte 
sich in diesem Zusammenhang Anhang A und B des POS Handbuchs durch¬ 
zulesen. Dort ist die Arbeitsweise des P-Code Interpreters beschrie¬ 
ben. Wer weiter interessiert ist, sollte sich das "ATTACH-BIOS docu- 
ment for Apple II Pascal 1.1" von Barry Haynes besorgen. Hier wird 
das BIOS ausführlich beschrieben. 

Die Liste ist nach der Reihenfolge der Speicheradressen geordnet. In 
der ersten Spalte steht die Anfangsadresse eines Speicherbereiches, 
in der zweites dessen Ende. Darauf folgt eine Kurzbeschreibung. 

Wer sich die einzelnen Routinen genauer anschauen will, der muß sich 
eines sogenannten Disassemblers bedienen. Er übersetzt die Speicher¬ 
inhalte in Assemblerbefehle und gibt sie aus. Unter Pascal ist stan¬ 
dardmäßig kein Disassembler vorhanden. Wenn der Leser sich keinen 
eigenen schreiben will, muß er auf den eingebauten Disassembler in 
den Applesoft-ROMs zurückgreifen. Dazu geht man so vor, daß man zu¬ 
nächst das Pascal-System startet. Apple-Pascal wird nun in die 
Languagekarte geladen. Man drückt dann auf "RESET”. Das System wird 
versuchen, erneut zu booten. Man kann diesen Vorgang stoppen, indem 
man wieder "RESET" drückt. Daraufhin befindet man sich im Basic- 
Interpreter. Mit "CALL-151" wird der eingebaute Monitor aufgerufen. 

Nun besteht nur noch das Problem, daß wir uns im ROM-Bereich befin¬ 
den, und nicht im RAM der Languagekarte. Wir verschieben den gesam¬ 
ten Monitor mit "F800<F800.FFFFM" in die Languagekarte und schalten 
dann mit "C080 N C080" in den RAM-Bereich um. Nun können wir mit "L” 
Teile von Apple-Pascal disassemb1ieren. Um damit etwas anfangen zu 
können, sind natürlich Maschinensprachkenntnisse notwendig. 
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Beg. Ende Name und Kurzbeschreibung 
Zero-Page: 


0 

35 

Werden zeitweise allgemein benutzt, 
keine spezielle Bedeutung, können 
z.B. von eigenen Assemblerroutinen 
benutzt werden, sind aber nicht 
beständig. 

50 

51 

BASE: für Base-Prozedur 

52 

53 

MP: Markstack-Pointer 

54 

55 

JTAB: Pointer für Jumptable 

56 

57 

SEG: Segment-Pointer 

58 

59 

IPC: Interpreter Program Counter 

5A 

5B 

NP: New Pointer 

5C 

5D 

KP: Program Stack Pointer 

5E 

5F 

Word-Offeset vom Stack 

62 

63 

Pointer auf Activation Record für 

Segment HO, Procedure Hl von 

SYSTEM.PASCAL 

64 

65 

Kopie von BASE 

6E 

70 

Indirekter JMP von Interpreter (JMP (DOxx)) 

71 

73 

Indirekter JMP vom CSP-Befehl (JMP (Dlxx)) 

74 

75 

Temporary 

70 


Procedure-Nummer, um Activation-Record 
auf zubauen 

7E 

7F 

MARKSTACK Pointer 

80 

81 

Di sk-Puff er 

86 


Segment-Nummer für Activation Record 

8E 

8F 

Return Adressen 

90 

91 

Pascal-System 

96 

A2 

DLE-Umsetzungstable, von UNITREAD/WRITE ben. 

BD 

BE 

ZEROL/ZEROH: zum Speicherlöschen bei reset 

BF 

CO 

JUMP1/JUMP2: für CASE Anweisung mit chars 

CI 

C2 

BXS1L/BXS1H 

C3 

C4 

BXS2L/BXS2H 

C5 

C6 

CHKPRTL/CHKPRTH 

DO 

Dl 

CHECKL/CHECKH 

D2 

D4 

TT1/TT2/TT3 

E0 


HSMODE: Von Hires-Routinen benutzt 

El 


HCMODE: Von Hires-Routinen Benutzt 

E2 

E3 

ACJVAFLD: Pointer auf ATTACH-Kopie des 
originalen BlOS-Jump-Vektors nach Fold 

E4 

E5 

RTPTR: Pointer auf character device read table 

E6 

E7 

WTPTR: Pointer auf character device write table 

E8 

E9 

UDJVP: Pointer auf user device jump Vektor 

EA 

EB 

DISKNUMP: Pointer auf Disk-Nummer Vektor 

EC 

ED 

JVBFOLD: Pointer auf BIOS-Jump-Vektor vor Fold 

EE 

EF 

JVAFOLD: Pointer auf BlOS-Jump-Vektor nach Fold 

F0 

Fl 

BAS1L/BAS1H: Pointer auf 1. Bildschirmseite 

F2 

F3 

BAS2L/BAS2H: Pointer auf 2. Bildschirmseite 

F4 


CH: horizontale Cursor Position 

F5 


CV: vertikale Cursor Position 

F6 

F7 

TEMPI/TEMP2 

F0 

F9 

SYSCOM: Pointer auf SYSCOM 

100 

1FF 

6502 Stack 

200 


BIOS Disk-Puffer 

3B1 

3 FF 

Tastatur Puffer 

400 

7 FF 

erste Textseite 
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QOO BFF 
C00 

C40 C7D 
C7E CBB 
CBC CF9 
CFA D35 
D36 D71 
D72 155E 


zweite Textseite 

Beginn des Heap (falls nicht verändert) 
INPUT-File Informationen 
OUTPUT-File Informationen 
KEYBOARD-Fi1e Informationen 
SYSTEM.WRK.TEXT-Fi1e Informationen 
SYSTEM.WRK.CODE-Fi1e Info rmationen 
Zuletzt gelesenes Directory 


A908 AC99 Activation-Record für Segment HO, Prozedur Hl 

von SYSTEM.PASCAL 


A994 A995 

A996 A997 

A998 A999 

A99A A99B 
A99C A9A1 
A9A2 A9A3 
A9A4 A9A5 
A9A6 A9AB 
A9AC A9AD 
A9AE A9AF 
A9B0 A9B1 
A9B2 A9B3 
A9B4 A9B5 
A9B6 A9BD 
A9BE A9C5 
A9C6 A9CD 
A9CE A9DD 
A9DE A9ED 
A9EE A9FD 
A9FE A9FF 
AA02 AA03 
AA04 AA05 
AA06 AA07 
AA08 AAOF 
AA10 AA17 
AA18 AA19 


AA1E AA6F 
AA70 AA79 

AA7A AA85 

AA86 AA8D 
AA8E AB29 


AB2A AB41 
AB4 2 AB5 9 
AB5A AB71 
AB72 AB89 
AB0A ABA1 
ABA2 ABA5 
ABA6 ABC5 


Pointer auf SYSCOM 

Pointer auf INPUT-File Informationen 
Pointer auf OUTPUT-File Informationen 
Pointer auf KEYBOARD-Fi1e Informationen 
wahrscheinlich unbenutzt 

Pointer auf SYSTEM.WRK.CODE-File Informationen 

Pointer auf SYSTEM.WRK.TEXT-Fi1e Informationen 

wahrscheinlich unbenutzt 

Student-Flag vom MISCINFO 

Slow Terminal-Flag vom MISCINFO 

Editor Escape Taste vom MISCINFO 

SYSTEM.WRK.CODE-vorhanden Flag 

SYSTEM.WRK.TEXT-vorhanden Flag 

SYSTEM.WRK.CODE Volume Name <STRING<7)) 

SYSTEM.WRK.TEXT Volume Name <STRING<7)> 

Volume Name des Workfiles (STRINGC7)) 

SYSTEM.WRK.CODE Filename (STRING(15)) 

SYSTEM.WRK.TEXT Filename (STRING(15)) 

Filename des Workfiles (STRING(15)) 

Pointer auf freien Heap für Benutzerprogramme 
Pointer auf KEYBOARD-Fi1e Informationen 
Pointer auf OUTPUR-File Informationen 
Pointer auf INPUT-File Informationen 
Volume Name für Prefix (':') (STRING(7)) 

Volume Name für Boot ('*') (STRING(7)) 

Datum (PACKED RECORD 
MONAT:0..12; 

TAG :0..31; 

JAHR :0. .10 0; 

END; ) 

Kommando Prompt Zeile (STRING(80)) 

Table mit Integer Zehner-Potenzen 
(ARRAY (0..4) OF INTEGER;) 

String mit Nullen für Vertica1-Move-Delay 
vom MISCINFO (STRING(11)) 

Zahlen-Set (SET of '0'..'9') 

Unit Table (ARRAY (0..12) OF 
RECORD 

UNITVID: STRING(7);(#Volume#) 
CASE BLOCKED:BOOLEAN OF 
TRUE: (LASTBLOCK:INTEGER) 

END; ) 

SYSTEM.ASSMBLER Filename (STRING(23)) 

SYSTEM.COMPILER Filename (STRING(23)) 

SYSTEM.EDITOR Filename (STRING(23)) 

SYSTEM.FILER Filename (STRING(23)) 

SYSTEM.LINKER Filename (SRING(23)) 

wahrscheinlich unbenutzt 

Configuration Characters vom MISCINFO 
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ABC 6 

ABDD 

ABDE 

AC2F 

AC30 

AC39 

AC3A 

AC3B 

AC3C 

AC3D 

AC3E 

AC3F 

AC40 

AC4 3 

AC44 

AC45 

AC5A 

AC61 

AC62 

AC6F 

AC7 0 

AC7F 

AC80 

AC99 

AC9A 

BD1B 

BD1C 

BD1D 

BD1E 

BD5D 

BD5E 

BD9E 

BD9E 

BDDD 

BDDE 

BEFF 

BDDE 

BDDF 

BDEO 

BDE1 

BDE2 

BDE3 

BDE4 

BDE5 

BDE6 

BDE7 

BDE6 

BDE9 

BDEA 

BDEB 

BDEC 

BDED 

BDEE 

BDEF 

BDFO 

BDF1 

BDF2 

BDF3 

BDF4 

BDF5 

BDF6 

BDF7 

BDF8 

BDFF 

BEOO 

BEI 7 

BE IC 

BE3D 

BE IC 


BE1D 


BE1E 


BE1F 


BE20 


BE21 


BE22 


BE2 3 


BE24 


BE25 


BE20 

BE29 

BE2A 

BE2B 

BE2C 


BE2D 


BE2E 


BE2F 


BE30 



Nächster Filename, der mit SETCHAIN der Unit 
CHAINSTUFF gesetzt wurde (STRING<23>) 

String, der mit SETCVAL der Unit CHAINSTUFF 

gesetzt wurde (STRING(80>) 

wahrscheinlich unbenutzt 

Lese Exec-File Flag 

Schreibe Exec-File Flag 

Swapping Flag 

wahrscheinlich unbenutzt 

'Gerade gebootet' Flag 

Volume Name des Exec-Files (STRING(7)) 
wahrscheinlich unbenutzt 
Filename des Exec-Files (STRING(15)) 
wahrscheinlich unbenutzt 

Code von SYSTEM.PASCAL, Segment HO, Prozeduren H29-57 

wahrscheinlich unbenutzt 

Segment Zähler Table des Interpreters 

Segment Location Table des Interpreters 

Segment Prozeduren Verzeichnis des Interpreters 

SYSCOM 


IORESULT: I/O Ergebnis 
XEQERR: Execution Error Code 
SYSUNIT: Unit, von der gebooted wurde 
BUGSTATE: Debugger Status 

GDIRP: Pointer auf zuletzt gelesenes Directory 
Pointer auf EXEC ERROR Activation Record 
STKBASE: Kopie des BASE-Registers des 
Interpreters 

LASTMP: Kopie des MP-Registers des Interpreters 
JTAB: Kopie des JTAB-Registers des Interpreters 
SEG: Kopie des SEG-Registers des Interpreters 
BOMBP: Pointer auf das Ende des Programm-Stacks 
(top of memory) 

BOMIPC: Kopie des IPC, falls ein EXEC ERROR 
auf tritt 

HLTLN: Zeilennummer eines Breakpoints 
BRKPTS: Debugger Breakpoint Table 
(ARRAY (0..3) OF INTEGER;) 
wahrscheinlich unbenutzt 

Configuration Informationen vom MISCINFO 


Lead in from screen 
Move Cursor home 
Erase to end of screen 
Erase to end of line 
Move Cursor right 
Move Cursor up 
Backspace 

Vertical move delay 

Erase line 

Erase screen 

Screen height 

Screen width 

Key to move Cursor up 

Key to move Cursor down 

Key to move Cursor left 

Key to move Cursor right 

Key to end file 


68 




UTILITIES Pascal 


BE31 


Key for flush 

BE32 


Key for break 

BE33 


Key for stop 

BE34 


Key to delete character 

BE35 


Non printing character 

BE36 


Key to delete line 

BE37 


Editor escape key 

BE38 


Lead in from keyboard 

BE39 


Editor accept key 

BE3A 


Backspace 

BE3B 

BE3D 

wahrscheinlich unbenutzt 

BE3E 

BEFD 

Segment Table (ARRAY (0..31) OF 


RECORD 

UNITNUM :INTEGER; 
BLOCKNUM:INTEGER; 
CODELENG:INTEGER; 
END;) 

BEFE BEFF wahrscheinlich unbenutzt 


BFOO BFFF Interpreter und BlOS-Variablen 

BFOO BF09 wahrscheinlich unbenutzt 

BFOA BFOD CONCKVECTOR: Vektor auf die Keyboard- 

Rout ine 

BFOE SCRMODE: Wenn bit 2 = 1 -> external console 

BFOF LFFLAG: Wenn bit 7 = 0 -> LF'S an Printer 

BF10 wahrscheinlich unbenutzt 

BF11 NLEFT: Für Kontrolle des horizontalen 

Screen-Scrol1s benötigt 
BF12 Zähler für Esc-Folgen 

BF13 BF14 RANDL/RANDH: Aufgangszahl für Random 

BF15 CONFLGS: Flag für Breakbehandlung 

(Bit 7: autofollow, Bit 6: flush, Bit 7: stop) 

BF16 BF17 BREAK: Vektor auf Benutzer Break-Routine 

BF18 RPTR: Console-Puffer Lesepointer 

BF19 WPTR: Conso1e-Puffer Schreibepointer 

BF1A BF1B RETL/RETH: Return Adresse des Interpreters 
bei BIOS-Aufrufen 

BFIC SPCHAR: Setzt Character Tests 

(Bit 0 = 1 -> nicht auf Ctrl A,Z,K,W,E testen 
Bit 1 = 1 -> nicht auf Ctrl S,F testen) 

BF1D BF1E IBREAK: Vektor auf Benutzer Break-Routine 
BF1F BF20 ISYSCOM: Pointer auf SYSCOM 

BF21 VERSION: 00 = Apple 1.0 / 02 = Apple 1.1 

BF22 FLAVOR: 01 = Normales System 

02 = keine Language-Card (LC) 

03 = keine LC, keine Sets 

04 = keine LC, keine Fließkommaroutinen 
05 = keine LC, keine Sets und keine 
Fl ießkommarout inen 
06 = LC vorhanden 
07 = LC, keine Sets 
08 = LC, keine Fließkommaroutinen 
09 = LC, keine Sets und keine 
F1ießkommarout inen 
BF23 BF24 Pointer auf BF56 

BF25 BF26 wahrscheinlich unbenutzt 

BF27 BF2E SLTTYPES: Table des Slottypen (Art der Karten) 

00 = Karte konnte nicht identifiziert werden 
(Slot vielleicht leer) 

01 = Karte konnte identifiziert werden, Code 
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BF2F 
BF31 
BF56 
BFCO 


COOO 


DOOO 


DOOl 
DO 10 
D028 
D02C 
D683 
D69E 
D772 
D898 
D8C6 
D8EF 
D907 
D918 
D91C 
D923 
D930 
D950 
D97B 
D98A 
D99C 
D9A4 
D9B2 
D9C3 
D9E5 
D9F8 
DA07 
DA 15 
DCAO 
DCBO 
DCC5 
DCE4 
DDF5 
DE29 

DOOO 

DOOO 
D100 
Dl 5 2 
D155 
D171 
D190 
D1EF 
D1EF 


aber unbekannt 
02 = Disk-Controller 
03 = Kommunikations-Karte 
04 = Serielle Karte 
05 = Printer Karte 
06 = Firmware Karte 
BF30 XITLOC: Vektor auf XIT Befehl 

BF55 wahrscheinlich unbenutzt 

BF7F von FORTRAN benutzt 

BFFF Boot-Devices, die nicht von Apple sind, können 

auf diese Speicherstellen zugreifen (z.B. Harddisk) 

CFFF I/O Speieherste11en 


DFFF BlOS-Code (in Bank 2) 


DOOF 
DO 27 


DE28 

DFF9 


Unterprogramm von DREAD 
Unterprogramm von RESINIT 
DWRITE: Disk Schreib-Routine 
DREAD: Disk Lese-Routine 
DINIT: Disk Init-Routine 

RESINIT: Init-Routine nach einem Hardware-Reset 

CONCK: Console Test-Routine 

CINIT: Console Init-Routine 

CREAD: Console Lese-Routine 

PINIT: Printer Init-Routine 

Firmwarekarte Init-Routine 

Graphik Init-Routine 

RINIT: Remote Init-Routine 

Kommunikationskarte Init-Routine 

Serial-Karte Init-Routine 

CWRITE: Console Sehreib-Routine 

Firmware-Karte Sehreib-Routine 

Serial-Karte Schreib-Routine 

RWRITE: Remote Sehreib-Routine 

Printer-Karte Schreib-Routine 

Kommunikations-Karte Sehreib-Routine 

PWRITE: Printer Sehreib-Routine 

Remote Lese-Routine 

Kommunikations-Kar te Lese-Rout ine 

Firmware-Karte Lese-Routine 

Serial-Karte Lese-Routine 

Remote Status und Printer Status Routinen 
Console Status Routine 
Disk Status Routine 
IDSEARCH Routine 

Index Table der ersten Buchstaben für IDSEARCH 
Identifier Table für IDSEARCH 


F22D Interpreter Code (in Bank 2) 


D0FF Interpreter Jump Table 

D151 Jump Table für Standardprozeduren 

D154 Jump nach F275 

D168 "CHRGET"-Rout ine für P-Code 

D18F Unterprogramm von LOD und LDA 

D1AC Unterprogramm von MARK und RELEASE 
EFJ: Equal false jump 
NFJ: Not equal false jump 


70 





UTILITIES Pascal 


D1EF 


MATH: 

: CSP 25..31 

D1FB 

D228 

Sichern der Pointer bei EXEC ERROR 

D22E 

D25 2 

IPC erhöhen 

D24D 


NOP: 

No Operation 

D253 


Interpreter Hauptsch1eife 

D25F 


FJP: 

False jump 

D267 


UJP: 

Unconditiona1 jump 

D296 


LDCN: 

Load constant NIL 

D29D 


LDC I : 

Load one word constant 

D2A9 


SLDL1 

. ..SLDL16: Short load local word 

D2B0 


LDL: 

Load l or.n 1 word 

D2D4 


LLA: 

Load local adress 

D2FA 


STL: 

Store local word 

D318 


SLD01 

. ..SLD016: Short load global word 

D325 


LDO: 

Load global word 

D343 


LAO: 

Load global adress 

D369 


SRO: 

Store global word 

D387 


LOD: 

Load intermediate word 

D3AD 


LDA: 

Load intermediate adress 

D3DB 


STR: 

Store intermediate word 

D401 


LDE: 

Load extended word 

D426 


STE: 

störe extended word 

D44B 


LAE: 

Load extended adress 

D467 


SIND1 

. ..SIND7: Short index and load word 

D46A 


SINDO: Load indirect word 

D47B 


STO: 

Store indirect word 

D495 


LDC: 

Load multiply word constant 

D4C8 


LDM: 

Load mulitply words 

D4F6 


STM: 

Store multiply words 

D523 


LDB : 

Load byte 

D53D 


STB: 

Store byte 

D557 


MOV: 

Move words 

D56B 


LAND: 

Logical and 

D57E 


LOR: 

Logical or 

D591 


LNOT: 

Logical not 

D59E 


XJP: 

case jump 

D62F 


NEW ( 

CSP 1) 

D66B 


MARK 

(CSP 32) 

D682 


RELEASE (CSP 33) 

D6A0 


XIT: 

Exit the Operation System 

D6BB 


ABI : 

Absolute value of integer 

D6D9 


ADI : 

Add integers 

D6F1 


NGl : 

Negate integers 

D703 


SB I : 

Substract integers 

D74 2 


MP I : 

Multiply integers 

D789 


SQI : 

Square integers 

D839 


DVI : 

Divide integers 

D866 


MODI : 

Modulo integers 

D87E 


CHK: 

Check against subrange bounds 

D8CD 


LPA: 

Load a packed array 

D8E5 


LSA: 

Load a constant string adress 

D907 


SAS: 

String assign 

D948 


IXS : 

Index string array 

D96B 


IND: 

Static index and load word 

D987 


INC: 

Increment field pointer 

D99A 


IXA: 

Index array 

D9D9 


IXP: 

Index packed array 

DA IC 


LDP: 

Load a packed field 

DA72 


STP: 

Store into a packed field 

DB20 


INT: 

Set intersection 

DB57 


DIF: 

Set difference 
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DB79 

DBE5 

DC55 

DCBA 

DCCC 

DD92 

DDD4 
DDD8 
DDDC 
DDEO 
DDE 4 
DDE 8 
DF2B 
DF2F 
DF33 
DF37 
DF3B 
DF65 
E253 
E2A1 
E2BD 
E2D4 
E2F9 
E32A 
E33F 
E417 
E61C 
E626 
E630 
E63A 
E640 
E6B2 
E6F7 
E784 
E82B 
E833 
E841 
E8AO 
E8A0 
E904 
EAC2 
EB09 
EBBA 
EC 5 5 
EC7D 
ECB2 
ECCO 
ED3F 
ED62 
EDBB 
EDDO 
EDE5 
EEOE 
EEAB 
EEAD 
EEBD 
EECD 
EEF9 
EF04 
EFOF 


UNI: Set Union 
ADJ: Adjust Set 
INN: Set membership 
SGS: Built a singleton set 
SRS: Built a subrange set 
DDD3 Table mit Masken für Manipulation von 
gepackten Feldern 
NEQ: Not equal 
GRT: Greater than 
LES: Less than 
GEQ: Greater than or equal 
LEQ: Less than or equal 
EQU: Equal 

LESI: Integer less than 

GRTI: Integer greater than 

LEQI: Integer less than or equal 

GEQI: Integer greater than or equal 

NEQI: Integer not equal 

EQUI: Integer equal 

CIP: Call intermediate procedure 

CLP: Call local procedure 

CGP: Call global procedure 

CXP: Call external procedure 

CBP: Call base procedure 

RBP: Return from base procedure 

RNP: Return from non-base procedure 

Segeme'nt Lese-Routine 

Residentes Segment laden (CSP 21) 

Residentes Segment 'ausladen' (CSP 22) 

CSP: Call Standard procedure 

IDSEARCH (CSP 7) 

TREESEARCH (CSP 7) 

FILLSCHAR (CSP 10) 

SCAN (CSP 11) 

EXIT (CSP 4) 

BPT: breakpoint 
HALT (CSP 39) 

TIME (CSP 9) 

MOVELEFT (CSP 2) 

MOVERIGHT (CSP 3) 

MEMAVAIL (CSP 40) 

ADR: Add reals 

SBR: Substract reals 

DVR: Divide reals 

MPR: Multiply reals 

SQR: Square reals 

ABR: Absolute value of real 

NGR: negate real 

FLO: Float next to top-of-stack 
FLT: Floadt top-of stack 
ROUND (CSP 24) 

TRUNC (CSP 23) 

PWROFTEN (CSP 36) 

EEAA Table der Zehnerpotenzen 

EEAC wahrscheinlich unbenutzt 

EEBD Character device write table 

EECC Character device read table 

Test auf erlaubte Unit 
IORESULT (CSP 34) 

IOCHECK (CSP 0) 

UNITBUSY (CSP 35) 
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EF1D 


UNITWAIT (CSP 37) 

EF27 


UNITSTATUS (CSP 12) 

EFA5 


UNITCLEAR (CSP 38) 

F069 


UNITREAD (CSP 5) 

F06E 


UNITWRITE (CSP 6) 

F22E 

FE7B 

Code von SYSTEM.PASCAL, Segment HO, 
Prozeduren «1-28 

FE7C 

FE7F 

wahrscheinlich unbenutzt 

FE80 

FEAF 

Jump Vektoren auf user device 

FEC8 

FEE8 

'Lädt' einen Driver per User-Device- 
Jump-Vektor 

FEE 9 

FEEE 

Start-Rout ine 

FEEF 

FEF4 

Interrupt, reste und BRK-Routine, springt 
nach XIT 

FEF5 

FEFA 

Von D756(2) aufgerufen 

FEFB 

FEFF 

Von Hires-Routinen benutzt 

FFOO 

FF41 

BIOS Jump Table vor Fold 

FF42 

FF4E 

Schiebt vektor auf Diskettennummer (FEBO) 
auf Stack 

FF4F 

FF56 

'Lädt' Driver per Disknummer Vektor 

FF58 


RTS Befehl 

FF5C 

FF9D 

BIOS Jump Table nach Fold 

FF5C 

FF5E 

Vektor auf Console Lese-Routine 

FF5F 

FF61 

Vektor auf Console Sehreib-Routine 

FF62 

FF64 

Vektor auf Console Init-Routine 

FF65 

FF67 

Vektor auf Printer Schreib-Routine 

FF68 

FF6A 

Vektor auf Printer Init-Routine 

FF6B 

FF6D 

Vektor auf Disk Schreib-Routine 

FF6E 

FF70 

Vektor auf Disk Lese-Routine 

FF71 

FF7 3 

Vektor auf Disk Init-Routine 

FF74 

FF76 

Vektor auf Remote Lese-Routine 

FF77 

FF79 

Vektor auf Remote Schreib-Routine 

FF7A 

FF7C 

Vektor auf Remote Init-Routine 

FF7D 

FF7F 

Vektor auf Graphik Schreib-Routine (ruft 
ein RTS Befehl auf) 

FF80 

FF82 

Vektor auf Graphik Init-Routine 

FF83 

FF 8 5 

Vektor auf Printer Lese-Routine 

FF86 

FF88 

Vektor auf Console Status-Routine 

FF89 

FF8B 

Vektor auf Printer Status-Routine 

FF8C 

FF8E 

Vektor auf Disk Status-Routine 

FF8F 

FF91 

Vektor auf Remote Status-Routine 

FF92 

FF94 

Vektor auf Keyboard Test-Routine 

FF95 

FF97 

Vektor auf Routine, die einen Driver per 
User-Device-Jump Vektor 'lädt' 

FF98 

FF9A 

Vektor auf Routine, die einen driver per 
Disknummer' Vektor 'lädt' 

FF9B 

FF9D 

Vektor auf IDSEARCH 

FFEE 

FFF 5 

wahrscheinlich unbenutzt 

FFF 6 

FFF7 

Version ( 0 = Apple 1.1, 1 = Apple 1.0) 

FFF 8 

FFFF 

Vektoren 

FFF 8 

FFF 9 

Start Vektor 

FFFA 

FFFB 

Vektor für Non-Maskable-Interrupt (NMI) 
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FFFC FFFD Reset Vektor 

FFFE FFFF Interrupt request und BRK Vektor 


3.3 Wa s s t eh t w cd — o ± ri «=* Anwendung 

In diesem Kapitel soll an einem Beispiel erläutert werden, wie man 
die Informationen, die in der Liste aus Kapitel 3.2 stehen nützen 
kann. (Wenn im Text auf eine Speicherstelle verwiesen wird, so soll¬ 
te der Leser diese in der Liste nachschlagen und die Erläuterung 
lesen.) 

Eine Möglichkeit ist, durch gezielte Eingriffe in die systeminternen 
Routinen das Pascal-System seinen Bedürfnissen anzupassen. So gibt 
es z.B. die Möglichkeit, die Tastatur des Apple so umzurüsten, daß 
sie Kleinbuchstaben erzeugen kann. Durch das Einstecken eines neuen 
Zeichengenerators auf der Hauptplatine können sie dann auch auf dem 
Bildschirm dargestellt werden. Hierzu ist allerdings ein Eingriff in 
die Ein- und Ausgaberoutinen des Betriebssytems nötig, da sie auf 
eine serienmäßige Tastatur eingestellt sind. 


Wir wollen in diesem Kapitel jedoch einige systeminterne Variablen 
einiesen und diese anzeigen. Im Speicherbereich von SA988 bis SBDDD 
stehen einige solcher Variablen. So z.B. die Filenamen von Assem¬ 
bler, Filers etc., sowie des Workfiles. Auch steht in diesem Be¬ 
reich, welche Diskette das "Prefix" bedeutet, und von welcher Dis¬ 
kette gebootet wurde. Wir werden den Namen des Workfiles feststellen 
können, und auch was als "Prefixvolume" (":") und was als "Root- 
volume" ("#") gilt. 


Weitere interessante Variablen stehen im Bereich von $BF00 bis 
SBFFF. So z.B., welche Karten in welchen Slots stecken. Wir werden 
diese Liste ansprechen und diese Informationen anzeigen. 

Man kann diese Variablen natürlich nicht nur anzeigen, sondern auch 
verändern. So kann man von einem Programm aus z.B. die Filer-Funk- 
tion "P", die das "Prefixvolume" ändert, ersetzen. So könnte man 
auch das Programm "PASH" aus Kapitel 2.3 erweitern. Das Setzen des 
Datums wird im nächsten Kapitel behandelt. 


Nun handelt es sich bei diesen Variablen aber nicht nur um einzelne 
Bytes, sondern z.B. beim Filenamen des Workfiles um einen String mit 
der Länge 15. Um die Variablen direkt ansprechen zu können müssen 
wir also den "PEEK/POKE" Mechanismus aus Kapitel 3.1 erweitern. Wenn 
wir zurückblättern stellen wir fest, daß wir dort einen Record be¬ 
nutzt haben, der es ermöglichte, eine Variable mittels eines Zeigers 
über eine bestimmte Speieherste11e zu legen. Bei "PEEK/POKE" war 
diese Variable genau ein Byte groß. Es ist aber genauso gut möglich, 
das das Record-Feld "SPCHRINHALT" 15 Bytes groß ist. Man kann an 
dieser Stelle der Record-Definition jeden gültigen Typ angeben. Um 
den Filename des Workfiles anzusprechen müßte es also lauten 
"SPRCHINHALT: STRING(15)". 


Bei den internen Variablen handelt es 
sind Integer-Werte. Flags bestehen aus 
aber auch Felder und Records vor. Das 
Record (Siehe nächstes Kapitel). 


sich oft um Strings. Zeiger 
einem Boolean-Wert. Es kommen 
Datum z.B. ist ein gepackter 


Wir können also durch geeignete Variablendefinitionen jede 
Variable von einem Programm aus ansprechen. Im folgenden 
werden wir das tun. 


interne 

Programm 
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Zunächst wollen wir die Volume- und Filenamen des Workfiles anzei- 
gen. In den Speicherstellen $A9B2 und $A9B4 befinden sich Flags, ob 
überhaupt ein Arbeitstext und -code vorhanden sind. Falls diese 
Flags den Wert "TRUE" haben stehen die Volumenamen ab SA9CE und die 
Filenamen ab $A9B6. Zur Erinnerung: Das Workfile muß nicht unbedingt 
den Namen “SYSTEM.WRK.TEXT", bzw. -“.CODE“ haben. 

Die Volumenamen, für die das und das "♦♦"-Zeichen stehen, finden 

sich ab SAA08 als Strings mit der Länge 7. Wir brauchen sie nur 
anzuzeigen. 

Schließlich steht ab $BF27 ein Feld, daß angibt, welche Karte in 
welchem Slot steckt. Für jeden Slot gibt es eine Byte, das den Kar¬ 
tentyp angibt. Die Bedeutung der Codes ist in der Liste angeben. Wir 
geben sie mit einer Schleife und einer "CASE"-Anweisung aus. 

Man sieht, daß es sehr einfach ist, diese Variablen anzusprechen. 
Dadurch ergeben sich vielfältige Möglichkeiten. Man kann Operationen, 
die bis jetzt nur mittels Dienstprogrammen wie dem Filer möglich 
waren, von seinem Programm aus durchführen. Die Programme werden 
dadurch viel benutzerfreundlicher. Man braucht sich nur noch in ei¬ 
nem Programm auskennen, nicht mehr zusätzlich, z.B. im Filer. Es ist 
natürlich zu beachten, daß die Programme dann nicht mehr auch andere 
Pascal-Systeme übertragbar sind. Man sollte hier die Strukturierungs¬ 
möglichkeiten von Pascal nutzen, und die Operationen, die systemspe¬ 
zifisch sind in einem Programmblock zusammenfassen. Soll das Pro¬ 
gramm übertragen werden, so muß nur dieser Teil entsprechend geän¬ 
dert oder ersetzt werden. Am leichtesten sollte eine Übertragung auf 
ein anderes UCSD-Pascal System sein, da auch hier die gleichen 
Variablen vorhanden sind. Sie werden aber mit Sicherheit an anderen 
Stellen stehen. 


Pr og r amm ” WSW . TrHZZXnr 

program wsw; 

type 

byte = packed array C0..0D of 0..255; 
volume_id = string[73; 
fi1e_id = stringC15 3 ; 

table = packed array CO..73 of 0..255; 
var 

flag: record case boolean of 

true : (adresse:integer); 

false: (inhalt : A boolean); 
end; 

volume: record case boolean of 

true : (adresse:integer)j 
false: (name: / 'volume_id) ; 
end ; 

filename: record case boolean of 

true : (adresse:integer); 

false: (name:~file_id); 
end ; 

slttyps : record case boolean of 

true : (adresse:integer ); 

false: (typ :~table); 
end ; 

ent:integer; 
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begin 

writelnCchrC12)) ; 
write('Workfile (text) : '); 

flag.adresse:=-22092 ; ( $A9B4 ) 

if flag.inhalt~ = true 
then begin 

volume.adresse:=-22002; ( 

writeC' ' ' ',volume.name A ); 
write(':'); 

filename.adresse:=-22050; ( 

writelnCfilename.name A 
end 


eise writelnC 

'none'); 


writeC'Workfile 

Ccode) : 

# ); 

flag.adresse:=— 

22094 ; 

C $A9B2 

if flag.inhalt~ 

= t rue 



then begin 

volume.adresse:=-22090; ( 

write('''',volume.name A ,':') 
filename.ad resse:=-22066; ( 

writelnCfilename.name A ,''* ') 
end 

eise writeln('none') ; 


writeln ; 


write('Prefix is '''); 

volume.adresse:=-22000; ( SAAO0 ) 

write(volume.name A ); 

writeln( 

writeC'Root is '''); 

volume.adresse:=-22000 ; ( $AA10 ) 

write(volume.name A ); 

writelnC 

writeln; 


slttyps.adresse:=-16601; C SBF27 ) 
for ent := 0 to 7 do 
begin 

write('Slot #',cnt,' contains '); 
case slttyps.typ^Cent 1 of 

writeln('probably nothing' 
writeln('an unknown card') 
writelnC 
writeln( 
writeln( 
writeln( 
writelnC 


00 
01 
02 
03 
04 
05 
06 
end ; 
end; 


disk Controller 
c ommunications 
serial card'); 
Printer card') ; 
firmware card') 


end . 


$A9BE ) 

$A9DE ) 

$A9B6 ) 
$A9CE ) 


) j 
' >; 

card'); 
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3.4 Da s Osl t- xjrrn. 

Eine sehr sinnvolle Anwendung der Liste aus Kapitel 3.2 ist eine 
Prozedur, die das Datum ändern kann. Wenn sie in ein Programm einge¬ 
baut wird, kann man es sich sparen, vorher im Filer das Datum zu 
setzen. Oder man schreibt sie in ein Programm, das als "SYSTEM.STAR- 
TUP" auf der Diskette steht. Damit wird schon nach dem Booten das 
Datum aktualisiert. Vielleicht benutzt man ein Programm täglich. Es 
kann dann selbstständig das Datum setzen. 

Wie wir schon in Kapitel 2.2 gesehen haben, wird das Datum als ein 
gepackter Record aufgefaßt. Das Format ist im Speicher dasselbe wie 
im Directory. Aus Kapitel 3.2 wissen wir, wo es im Speicher steht. 
Mittels eines der schon hinlänglich bekannten Zeiger legen wird die¬ 
sen gepackten Record über diese Speieherste11e und können so das 
Datum ansprechen. 

Wie bekannt, wird das Datum auch auf Diskette geschrieben, um es 
beim nächsten Einschalten des Computers wieder zur Verfügung zu ha¬ 
ben. Wenn wir das Datum setzen wollen, müssen wir es also auch auf 
Diskette schreiben. Nun wissen wir aber noch nicht, wohin. Wir 
schauen uns also den Aufbau des Directorys aus Kapitel 2.2 an. Wenn 
wir berechnen, wieviel Platz die Informationen vor und nach dem Da¬ 
tumseintrag benötigen, stellen wir fest, daß das 11. Wort im Block 2 
einer jeden Diskette das Datum darstellt. Wenn wir es schreiben wol¬ 
len, müssen wir aber zunächst diesen Block einiesen, und dann das 
Datum. Dies ist nötig, da ja sonst die Informationen vor und nach 
dem Datum verloren wären. 

Nun zu unserem Programm. Es sollte genau die Funktion erfüllen, die 
das "D"-Kommando im Filer hat. Im Filer kann man den Tag alleine 
setzen, indem man das Zeichen "D" vor die betreffende Zahl stellt. 
Was jedoch nicht möglich ist, nämlich das alleinige Setzen von Monat 
und Jahr, wollen wir in unserem Programm einbauen. Dazu wird dann 
der jeweiligen Zahl ein "M" oder ein "Y" vorangestellt. Die Eingabe 
"MS" würde z.B. den Monat auf März setzen. 

Den Monat wollen wir nicht nur durch eine Zahl, sondern wie im Filer 
durch einen Text ersetzen. Also z.B. "Jan" für Januar. Dazu müssen 
wir natürlich die Abkürzungen den Monatsnamen haben. Wir schreiben 
sie in der Prozedur "INIT" in das Feld "MONATE". 

Die Prozedur "LESEDATUM" übergibt das Datum an eine Variable, wie 
oben beschrieben. Wir können es nun ausgeben, wobei wir die Meldung¬ 
en aus dem Filer übernehmen. 

Nun lesen wir einen String ein, der das neue Datum enthält. Dieses 
wird dann in der Prozedur "CONVERT" ermittelt. Es gibt hier vier 
Möglichkeiten. Ist das erste Zeichen der Eingabe ein "D", ein "M" 
oder ein "Y", so soll nur ein Teil des Datums neu gesetzt werden. Es 
muß dann jeweils der neue Wert aus dem String geholt werden und der 
entsprechende Teil des Datums verändert werden. 

Komplexer ist die Entschlüsselung einer kompletten Datumsveränder¬ 
ung. Hierbei wird angenommen, daß das Datum in der Form "TT-MMM-JJ" 
vorliegt. D.h., ein Wert für den Tag, darauf ein Bindestrich. Dann 
der abgekürzte Monatsnamen, wieder ein Bindestrich, und schließlich 
der Wert für das Jahr. Falls dieses Format an einer Stelle nicht 
korrekt ist, wird das Datum nicht verändert. 

Damit der Benutzer sich nicht absolut an dieses Format halten muß, 
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werden intern eventuell fehlende führende Nullen eingefügt. Weiter¬ 
hin wird mit der Prozedur "UPSHIFT" beliebige Groß- und Kleinschrei¬ 
bung ermöglicht und eventuelle Leerstellen entfernt. Die Prozedur 
"CONVERT" erkennt alle Eingaben, die der Filer auch erkennen würde. 

Ist das neue Datum gesetzt, wird es mit der Prozedur "SCHREIBEDATUM" 
in den Speicher und auf die Diskette gebracht. Die Diskette sprechen 
wir hier mit "BLOCKREAD/WRITE" an. Dabei benuzten wir nur das Lauf¬ 
werk von Unit #4. 

Bei einer leeren Eingabe nehmen wir an, daß das Datum nicht verän¬ 
dert werden soll. 

Das Programm "DATESET" macht also die Datumseingabe einfacher und 
komfortabler. Die Prozeduren "LESEDATUM" und "SCHREIBEDATUM" können 
in andere Programm übernommen werden. So kann man z.B. das Programm 
"PASH" aus Kapitel 2.3 um eine Datumsfunktion erweitern. 

Wichtige Typen und Variable 

"TDATUM" : Typendefinition für ein Datum 

"DATUM" : Variable, die im Programm das Datum aufnimmt 
"MONATE" : Feld für die Monatsabkürzungen 
Wichtige Prozeduren 

"LESEDATUM" : liest das Datum aus den Speicher und 
übergibt es an eine Variable 

"SCHREIBEDATUM" : bringt das an diese Prozedur 

übergebene Datum in den Speicher 
und auf die Diskette 

"UPSHIFT" : entfernt in dem übergebenen String alle 

Leerzeichen und wandelt Großbuchstaben in 
Kleinbuchstaben um 

"CONVERT" : setzt das Datum aufgrund der Eingabe 


Pr og r SLirtin " DATESET . TEXT " 

program datumsetzen; 

type tdatum = packed record 

monat: ü..12; 
tag : 0. .31; 
jahr : 0..99; 
end; 

var datum : tdatum; 

monate: array CI..123 of stringC33; 
ds : string; 

procedure init; -C Initialisiert Monatsnamen > 
begin 

monateC 13:='Jan'; 
monateC 23:= / Feb / ; 
monateC 33:='Mar'; 
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monateC 4D:='Apr'; 
monateC BD^'May'; 
monateC ÄDis'Jun'j 
monateC 73:='Jul'} 
monateC ÖU^'Aug'; 
monateC 93:='Sep / ; 
monateC10:J: = '0kt'; 
monateC113:='Nov' ; 
monateC123:='Dec'; 
end; 

procedure lese_datum(var date: tdatum); < Liest Datum aus Speicher > 
var sprchdatum : record case boolean of 

true : (datum: Ä tdatum); 
false: (adresse:integer); 
end; 

begin 

sprchdatum.adresse:= -21992; -C Siehe Liste in Kap. 3.2 > 
date:=sprchdatum.datum~; 
end; 

procedure schreibe_datum (neudatum:tdatum); -C Schreibt Datum in Speicher und > 


var sprchdatum : 

: record case boolean of -C auf 

Diskette in Unit 4 

> 


true : 

(datum:^tdatum); 




false: 

(adresse:integer); 




end; 




diskdatum ; 

i record 





unusedl 

: packed array CO..93 of 

integer; 



datum 

: tdatum; 




unused2 

: packed array C11..2553 

of integer; 



end; 





begin 


< Datum in Speicher schreiben > 
sprchdatum.adresse:= -21992; 
sprchdatum. datum'': =neudatum; 

< Datum auf Diskette schreiben > 

unitread(4,diskdatum,512,2,0); < Block einiesen, um die Felder unusedl/2 > 

diskdatum.datum:=neudatum; i nicht zu veraendern > 

unitwrite(4,diskdatum,512,2,0); < Block zurueckschreiben > 

end; 

procedure upshift (t:string; var s:string); { wandelt alle Kleinbuchstaben in > 
var i:integer; -C Grossbuchstaben um und entfernt > 

begin 
s:=''; 

for i: = 1 to length(t) do 
if ord(tCiD)>96 
then begin 

tCiU:=chr(ord(tCi3)-32); 
s:=concat(s,copy(t,i,1)); 
end 

eise if tCiDO' ' then s:=concat(s,copy(t,i,l)); 

end; 

procedure convertCs:string; var datum:tdatum); 
var neudatum:tdatum; 

d:integer; 

function int(t:string):integer; < Wandelt eine zweistellige Zahl in > 


79 



UTILITIES Pascal 


var i,x:integer; < String t in einen Integer-Wert um > 

begin 
x:=0; 

for i:= 1 to 2 do 

x:= lü#x + (ordCtCiiD-ordC'O')); 
int:=x; 
end; 

function f inddatum(t:stri'ng):integer; -C Wandelt Monatsnamen in die > 
var i:integer; < entsprechende Zahl um > 

s:string; 
begin 
i:=l; 
repeat 

upshiftCmonateCiD,s); 
i:=i+l; 

until (t=s) or (i=13); 

if (i=13) and (tOs) then finddatum:=0 

eise finddatum:=i-l; 

end; 


begin 

if sCID in C'D'/M' ,'Y'I] 

then if length(s)<3 then insertC'O',s,2); { Null einfuegen } 
if sC 1II= , D / then -C nur Tag veraendern > 
begin 

d:=int(copyCs,2,2)); < umwandeln > 

if (d>0) and (d<32) then 

datum.tag:=d; { bei gueltigem Tag neu setzen 

end; 

if sC13= / M / then 

begin 

d:=int(copyCs,2,2)); 
if (d>0) and (d<32) then 
datum.monat:=d; 

end; 

if sClT^'Y' then 

begin < nur Jahr veraendern > 
d:=int(copy(s,2,2)); 
if (d>0) and (d<100) then 
datum.jahr:=d; 

end; 


if (sClU in and (length(s)=9) 

then begin 

neudatum:=datum; 

if pos( / - / ,s)=2 then insert ( 7 □',s,l); -C Null einfuegen > 
d:=int(copy(s,l,2)); < Tag > 
if (d>G) and (d<32) then 


begin 

neudatum.tag:=d; 
if SC3J*'-' then 


begin 

d:=finddatumCcopyCs,4,3)); i Monat > 
if d>0 then 


begin 

neudatum.monat:=d; 
if sL71 ='then 
begin 

d:=int(copy(s,8,2)); < Jahr > 
if (d>0) and (d<100) then 


begin 


> 


80 


UTILITIES Pascal 


neudatum.jahr:=d; 
datum:=neudatum; 
end; 

end; 

end; 

end; 

end j 

end; 

end; 

begin 
init; 

lesedatum(datum); 

writeln('Today is # ,datum.tag,', 

monateCdatum.monatD,,datum.jahr); 
write('New date ? '); 
readln(ds); 

if ds<>" then { Nicht bei leerer Eingabe > 
begin 

upshift(ds ? ds); 
convert(ds,datum); 
schreibedatum(datum); 
end; 

writeln('The date is datum.tag,, 

monateCdatum.monatD,,datum.jahr); 

end. 


3.5 GETKEY — W± xr 

den Ta s t aturpuf if er 

In Basic gibt er den Befehl GET. Es wartet auf die Eingabe eines 
Zeichens von der Tastatur. In Pascal gibt es eine ähnliche Prozedur, 
nämlich READ(CH). Sie holt ebenfalls eine Eingabe von der Tastatur. 
Jedoch ist die Eingabe in Pascal anders organisiert. Es gibt nämlich 
einen Tastaturpuffer. Das bedeutet, daß jeder Tastendruck zunächst 
in einem Zwischenspeicher abgelegt wird (dem Puffer), aus dem bei 
der nächsten Eingabe die Zeichen kommen. Sie können dies ausprobie¬ 
ren, indem Sie z.B. in der Kommandozeile die Zeichenfolge "Eipascal" 
eintippen. POS wird zunächst den Editor auf rufen. Dann wird, lange 
nachdem Sie "I" gedrückt haben, der Insert-Modus aufgerufen und 
darauf das Wort "pascal" in den Text eingegeben. Das kommt durch den 
Tastaturpuffer, in dem sich Ihre Eingaben befinden, und nacheinander 
an das Programm gegeben werden. 

Oft gibt es aber Situationen, in denen die Eingabe den Benutzer 
weiterreichende Folgen hat. Durch den Tastaturpuffer ist die Gefahr, 
daß der Benutzer aus Versehen eine Taste doppelt drückt, vergrößert. 
Es wäre günstiger, wenn wir den Tastaturpuffer umgehen könnten. 

Vor dem gleichen Problem steht man oft bei der Programmierung von 
Spielen, bei denen es auf die Reaktionsschnelligkeit des Spielers 
ankommt. Der Tastaturpuffer gibt ihm einen zu großen Zeitvorteil. 

Wir brauchen also eine Prozedur, die alle vorhergehenden Tastatur¬ 
eingaben ignoriert und auf eine Eingabe wartet. Das erreichen wir 
mit der Prozedur GETKEY. 
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Progr amm ** GETKEY . TEXT " 
procedure getkey(var key:char); 

type C TYPE ist lokal zu GETKEY ! 3 

byte = 0.. 255; 

spchrinhalt = packed arrayC0..03 of byte; 
spchrstelle = record case boolean of 

true: (adresse:integer); 
f alse:(inhalt: A spchrinhalt) 
end ; 

var dummy:spchrste11e; 


begin 

unitclear(1); ( Tastaturpuffer loeschen 3 

dummy.adresse:=-16384; C $C000 vom Keyboard ) 

repeat C Auf Taste warten. ) 

until (dummy . inhal t''C03>127) ; 

read(keyboard,key); ( Taste einiesen ) 

end; ( Ab hier wird Tastatur- ) 

{ puffer wieder benutzt ! ) 


Mit "UNITCLEAR(1)" löschen wir den gesamten Tastaturpuffer, und war¬ 
ten dann auf ein Zeichen. Die Tastatur des Apple ist so geschaltet, 
daß immer dann, wenn eine Taste gedrückt wurde, die Speieherste11e 
SC000 größer 127 wird. Sonst ist sie kleiner 128. 

Mit "PEEK" ist es nun kein Problem, abzufragen wie diese Speicher¬ 
stelle aussieht. In- "GETKEY" ist "PEEK" nicht als einzelne Funktion 
definiert, die Funktionsweise ist aber genau die gleiche. Wir weisen 
"DUMMY.ADRESSE" den Wert $C000, oder als Integerzahl, - 16384 zu und 
warten dann mit einer "REPEAT-UNTIL" Schleife darauf, daß "DUMMY.IN- 
HALT~(0)" größer als 127 wird. Tritt dies ein, so ist eine Taste 
gedrückt worden, und wir können ein Zeichen mittels "READ(KEYBOARD,- 
KEY)" einiesen, das zugleich an eine Variable Parameter übergeben 
wird . 


Der Aufruf erfolgt mit z.B "GETKEY(CH)". 


3 . E> Manipulat i onen am 
Eingabepuf f' er 

Unter POS ist ein sogenannten "Type-ahead-buffer" implementiert. Er 
bewirkt, daß von der Tastatur auch dann Zeichen eingelesen werden, 
wenn keine Eingabe vom Programm erwartet wird. Dies wird so bewerk¬ 
stelligt, daß bei jeder Programmoperation auch die Tastatur abge¬ 
fragt wird. Ist ein Taste gedrückt, so wird das entsprechende Zei¬ 
chen eingelesen. Es wird dann in den sogenannten Tastaturpuffer 
übernommen. Danach wird im Programm fortgefahren. Wird nun vom Pro¬ 
gramm eine Eingabe erwartet, wird nachgeschaut, ob sich im Tasta¬ 
turpuffer noch Zeichen befinden. Ist dies der Fall, so werden diese 
als Eingabe gewertet. Ist der Tastaturpuffer leer, so kommen die 
nächsten Eingaben von der Tastatur. 

Dies kann man leicht ausprobieren. Man ruft von der Hauptkommando¬ 
zeile den Filer mit "F" auf. Während der Filer geladen wird, gibt 
man nun langsam die Zeichen "L",":" und <ret> ein. Wenn der Filer 
geladen ist, wird nun automatisch eine Directoryliste für die Pre- 
fix-Diskette ausgegeben. Dieser Tastaturpuffer hat den Vorteil, daß 
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keine Eingaben verloren gehen können. Weiterhin muß der Benutzer 
nicht erst darauf warten, bis Programme geladen, oder Kommandos aus¬ 
geführt worden sind. 

In diesem Kapitel wird eine Routine vorgestellt, die es ermöglicht, 
von einem Programm aus ein bestimmtes Zeichen in diesen Tastaturpuf¬ 
fer zu setzen. Der Sinn einer solchen Routine ist es, Programm auto¬ 
matisch auf rufen zu können. So könnte man z.B. in einem selbstge¬ 
schriebenen Assembler oder Compiler die Möglichkeit einbauen, nach 
einem Fehler direkt in den Editor zu gehen. Man braucht dazu nur das 
Zeichen "E" in den Tastaturpuffer zu schreiben, und danach das Pro¬ 
gramm zu verlassen. Nach Verlassen des Programms kehrt das System in 
die Hauptkommandozeile zurück und erwartet eine Eingabe. Da sich im 
Tastaturpuffer ein "E" befindet, wird dieses als Eingabe gewertet 
und der Editor aufgerufen. 

Um diese Routine zu realisieren, müssen wir uns auf die Assembler- 
ebene begeben. An eine Maschinenroutinen wird ein Zeichen übergeben, 
das dann von dieser in den Tastaturpuffer geschrieben wird. 

Damit wir ein Zeichen in den Tastaturpuffer schreiben können brau¬ 
chen wir zunächst einige Informationen über den Tastaturpuffer 
selbst. 

Es handelt sich bei dem Puffer um einen Speicherbereich, in dem die 
eingelesenen Zeichen zwischengespeichert werden. Dieser Bereich be¬ 
findet sich unter Apple-Pascal bei $3B1 (hex) und hat eine Länge von 
maximal 78 Zeichen ($4E (hex)). 

Um zu wissen, wo in diesem Puffer das nächste Zeichen abgelegt wer¬ 
den muß, gibt es einen Zeiger, "WPTR" (Write PoinTeR). Er befindet 
sich unter Apple-Pascal bei $BF19 (hex) und ist logischerweise eine 
Zahl zwischen 0 und 78. Soll nun ein Zeichen in den Tastaturpuffer 
geschrieben werden, so kommt es an die Speicherstelle, die sich aus 
Pufferanfang + "WPTR" ergibt. 

Falls "WPRT" einmal über das Pufferende hinauszeigt, so wird "WPTR" 
auf 0 gesetzt, und das nächste Zeichen wird an Anfang des Puffer 
gespeichert. Man spricht hier von einem Ringpuffer. 

Damit Zeichen aus dem Puffer gelesen werden können, gibt es einen 
zweiten Zeiger, "RPTR" (Read PoinTeR). Die Speicherstelle, aus der 
das nächste Zeichen gelesen werden muß, ergibt sich aus Pufferanfang 
+ "RPTR". Hier gilt auch, daß dieser Zeiger auf 0 zurück gesetzt 
wird, wenn er über das Pufferende hinauszeigt. 

Es kann nun Vorkommen, daß der Puffer voll ist, d.h., daß schon 78 
Zeichen abgespeichert sind. Dies ist dann der Fall, wenn "WPRT" nach 
der Inkrementierung gleich "RPTR" ist. Er "überholt" "WPTR" sozusa¬ 
gen von hinten. Dann wird die Annahme eines neuen Zeichens verwei¬ 
gert. Auf dem Apple wird als Meldung ein Piepston erzeugt. 

Wenn wir also ein Zeichen in den Tastaturpuffer schreiben wollen, 
müssen wir wie folgt Vorgehen. Zunächst wird "WPTR" um 1 erhöht. Ist 
er größer als 78, so wird er auf 0 zurückgesetzt. Dann wird nachge¬ 
prüft, ob der Puffer schon voll ist. Dies ist dann der Fall, wenn 
"WPTR" gleich "RPTR" ist. Trifft dies zu, wird ein Piepston ausgege¬ 
ben, und die Routine verlassen. 

Ist der Puffer noch nicht voll, so wird der neue "WPTR" gesetzt und 
Das Zeichen in den Puffer an der Speicherste11e Pufferbeginn + 
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"WPRT" abgelegt. Damit befindet sich das neue Zeichen im Tastatur¬ 
puff er . 

Wir können nun das Assemblerprogramm schreiben. Es besteht aller¬ 
dings nicht nur aus den oben genannten Schritten. 

Zur Sicherheit retten wir vor dieser Routine alle 6502 Register auf 
dem Stack. Nach der Routine holen wir sie wieder von Stack, und 
stellen so den Ausgangszustand wieder her. Es könnte sein, daß diese 
zwei Schritte überflüssig sind. Um das festzustellen müßte man je¬ 
doch detailliert nachprüfen, ob vor dem Aufruf der Routine in den 
Registern Werte stehen, die hinterher weiterverwendet werden sollen. 
Man kann eigentlich davon ausgehen, daß man bei Assemblerroutinen 
alle Register zur freien Verfügung hat; wir speichern die Register 
nur sicherheitshalber ab. 

Zusätzlich gehören zur Assemblerroutine noch zwei Teile, die die 
Zusammenarbeit mit dem Pascal-Programm übernehmen. Nach dem Aufruf 
einer Assemblerroutine befinden sich alle Parameter auf dem Stack. 
Dabei ist das Parameter, das zuerst übergeben wird am "tiefsten" und 
das, das zuletzt übergeben wird am "höchsten". Wir haben bei unserer 
Routine nur ein Parameter, nämlich ein Zeichen. Dieses Zeichen ist 
von Typ "CHAR". Dieser Typ nimmt normalerweise 2 Bytes ein, von de¬ 
nen das höherwertige zuerst auf den Stack geschoben wird. Da wir 
aber nur 255 Zeichen kennen, ist dieses unbedeutend. Wir holen zu¬ 
nächst mit "PLA" das niederwertigere Byte vom Stack und speichern es 
zwischen. Damit der Stack nicht in Unordnung gerät ist noch eine 
"PLA"-Instruktion nötig, die das bedeutungslose zweite Byte vom 
Stack holt. Damit ist das Parameter vom Pascal-Programm an die 
Assemblerroutine übergeben. 

Beim Aufruf einer Assemblerroutine befindet sich jedoch noch ein 
Wert auf dem Stack. Er enhält die Adresse, an die nach der Abarbei¬ 
tung der Assemblerroutine zurückgesprungen werden soll. Sie befindet 
sich "über" den Parametern oben auf dem Stack. Sie muß zu Beginn des 
Assemblerprogramms mit zwei "PLA"-Instruktionen eingelesen und 
zwischengespeichert werden. Bevor das Assemblerprogramm mit "RTS" 
verlassen werden kann, muß sie mit zwei "PHA"-Instruktionen wieder 
auf den Stack gelegt werden. Geschieht dies nicht, kehrt das System 
nicht an die richtige Adresse zurück und stürzt ab. 

Damit ist das Assemblerprogramm komplett und kann eingeben und 
assembliert werden. 


Programm "PUSH.TEXT" 


.proc pushchar,1 ; 1 Parameter 


ret 1 

. equ 

0 

; Zwischenspeicher fuer die Ruecksprung- 

re th 

. equ 

1 

; adresse und das Zeichen. ( Speicher- 

char 

. equ 

2 

; plaetze 0-35 koennen ja benutzt werden 

cbuf1en 

. equ 

04E 

; Laenge des Zeichenpuffers 

conbuf 

. equ 

003B1 

; Adresse des Zeichenpuffers 

rpt r 

. equ 

0BF18 

; Lesezeiger des Puffers 

wpt r 

. equ 

0BF19 

; Schreibezeiger des Puffers 

bei X, 

. equ 

0DB1A 

; Gibt ein CHRC7) aus (Klingel) 


pla ; Ruecksprungadresse von Stack holen und 
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s ta 

ret 1 

j 

Zwischenspeichern 


pla 





s ta 

re th 




pla 


; 

Zeichen vom Stack holen und Zwischen¬ 


s ta 

char 

; 

speichern . 


pla 


; 

(Das Zeichen wird als 16-Bit-Wort uebe. 




i 

geben. Damit ist das zweite Byte 




• 

bedeutungslos. 

save 

php 


s 

Alle 6502-Register auf Stack schieben 


pha 


; 

und damit retten. 


txa 





pha 





tya 





pha 





lda 

char 


uebergebenes Zeichen 


ldx 

wpt r 

i 

Zeigt der Zeiger ueber den Puffer 


inx 


; 

hinaus ? 


cpx 

# cbuf1en 




bne 

labeil 




ldx 

HO 

» 

Wenn ja, am Anfang des Puffers das 




; 

Zeichen ablegen 

label1 

cpx 

rpt r 

i 

Ist der Puffer voll ? 


bne 

buf ok 




jsr 

bell 

; 

Wenn ja, Klingelzeichen ausgeben und 


jmp 

res tore 

• 

das Zeichen nicht annehmen 

buf ok 

stx 

wpt r 

9 

Schreibezeiger erhoehen 


s ta 

conbuf,x 

i 

Zeichen im Puffer ablegen 

restore 

pla 



Alle 6502-Register vom Stack holen 


tay 


; 

und somit den Ausgangszustand 


pla 


; 

wiederherstellen 


tax 





pla 





plp 





lda 

re th 


Ruecksprungadresse aus dem Zwischen¬ 


pha 


i 

speicher holen und auf den Stack 


lda 

ret 1 

; 

schieben. 


pha 





r t s 


; 

zurueck zum Pascal-Programm ... 


. end 


Wir schreiben nun ein kleines Demoprogramm in Pascal. Die Assembler¬ 
routine wird als "EXTERNAL" deklariert. Sie heißt "PUSHCHAR 
(C:CHAR)". "C" ist das Zeichen, das in den Tastaturpuffer geschrie¬ 
ben werden soll. 

Das Programm gibt eine kleine Kommandozeile aus. Der Benutzer kann 
auswählen, ob er den Editor oder den Filer starten will, oder ob er 
eine Liste des Directorys ausgeben haben will. Je nachdem werden die 
entsprefer geschrieben werden soll. 

Das Programm gibt eine kleine Kommandozeile aus. Der Benutzer kann 
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auswählen, ob er dene Directory1iste die Befehlsfolge "FL:<ret>". 
Daraufhin wird das Programm verlassen, und die Eingaben aus dem Tas¬ 
taturpuffer abgearbeitet. 

Progr amm "PUSHIT . TEXT '* 
program pushdemo; 
var c:char; 

procedure pushchar(c:char); ( Assembler Routine ) 

external; 


begin 

writeln('E)ditor F)iler L)ist of Directory'); 
repeat ( Auswahl per Tastatur ) 

read(c ) ; 

until c in C'E' ,'e' ,'F' ,'f' ,'L' , ' 1 ' ] ; 
case c of 

'E','e': pushchar('E'); ( Editor Kommando ) 

'F','f': pushchar('F'); C Filer Kommando ) 

'L' , ' 1' : begin 

pushchar('F'); ( Filer aufrufen und danach ) 

pushchar('L'); C das L)ist Kommando fuer ) 

pushchar; ( die Prefix Diskette ) 


pushchar(ehr(13)); 
end 

end ; 

end. C Zu diesem Zeitpunkt befinden sich im Zeichenpuffer die ) 
( entsprechenden Kommandos. Sie werden nach Verlassen ) 

{ des Programms so ausgefuehrt, als wenn sie von der ) 

( Tastatur aus eingegeben worden waeren. ) 


Damit man ein lauffähiges Programm erhält, ist es noch nötig, mit 
dem Linker die Assemblerroutine in das Hauptprogramm einzubinden. 
Nach der Eingabe von "L" ergibt sich folgender Bildschirmdialog. 


LINKING... 

APPLE PASCAL LINKER CI.ID 
HOST FILE? PUSHIT 
OPENING PUSHIT.CODE 
LIB FILE? PUSH 
OPENING PUSH.CODE 
LIB FILE? <ret> 

MAP FILE? <ret> 

READING PUSHDEMO 
READING PUSHCHAR 
OUTPUT FILE? PUSHDEMO 
LINKING PUSHDEMO H 1 
COPYING PROC PUSHCHAR 

Bild 3.6.1: Dialog beim Linkerlauf 
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3 


V' 


Ein Maschinencod© 
jTtijr Pascal 


lxl cd r~L ± t, cd r~ 


Kapitel 3.2 stellte dem Leser eine Liste nüt 
im Apple-Pascal vor. Ihm ist es aber bis je 
bestimmte Speicherplätze anzusprechen und zu 
also einen kleinen "Monitor", d.h. ein Prog 
big direkt im Speicher arbeiten können. Be 
wir uns am sogenannten "Autostart-Monitor" 
jedem Apple 11+ im ROM fest installiert ist. 


zlicher Speicherstellen 
tzt nur möglich gewesen, 
verändern. Wir brauchen 
ramm, mit dem wir belie- 
i der Entwicklung wollen 
orientieren, der bei 


Nehmen wir also das "APPLE II REFERENCE MANUAL" zur Hand und schla¬ 
gen wir auf Seite 59 eine Zusammenfassung der Kommandos dieses Moni¬ 
tors nach. 


Wir können nicht alle Funktionen übernehmen, da einige unter POS 
einerseits schlecht realisierbar wären, und zum anderen kaum benö¬ 
tigt werden. Wir werden in unserem Programm folgende Funktionen des 
Autostart-Monitors nicht berücksichtigen: das Lesen und Schreiben 
auf Kassette und das Starten und Disassemb1ieren von Programmen. Von 
den übrigen übernehmen wir nur die Addition und Subtraktion zweier 
Werte. 


Das Format der Befehle übernehmen wir vom Autostart-Monitor. Ebenso 
die Ausgabe mit ihrer 40 Spalten Formatierung. Alle Ein- und Ausga¬ 
ben sollen in hexadezimaler Schreibweise erfolgen, wobei die Werte 
nicht durch ein bestimmtes Zeichen (z.B. "$") als hexadezimal ge- 
kennzeichenet werden sollen. 


Wir haben es also mit den folgenden Befehlen zu tun: 

adr Zeigt den Inhalt der Speicherste11e adr an 
adr.adr Zeigt bis zu 8 Speicherzellen ab adr an 


adr:val val 


Schreibt die Werte val ab adr 


in den Speicher 


adr1<adr2.adr3M Verschiebt adr2 
adrl<adr2.adr3V Vergleicht adr2 


bis adr3 nach adrl 

bis adr3 mit adrl folgende 


val+val 
val-val 


Zeigt Summe an 
Zeigt Differenz an 


adr ist eine 16 Bit Adresse (0000-FFFF) 
var ist ein 8 Bit Wert (00-FF) 


Wie wir sehen, kommt bei jedem Kommando ein bestimmtes Zeichen in 
der Eingabe vor, z.B. "+" bei der Addition. Also können wir über 
diese Zeichen "M","V") die Befehle unterscheiden. 
Falls nur eine Adresse angegeben wird, so handelt es sich um den 
ersten Befehl. 


Der Rest ist relativ einfach. Wir benötigen Routinen, um Adressen 
und Werte von hexadezimaler Schreibweise in dezimale Integerzahlen 
umzuwandeln, und eine Routine, um das Ergebnis der Addition bzw. 
Substraktion hexadezimal auszugeben. 


Es ergibt sich das folgende Programm: 
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Programm 11 MON I TOE^ . TEXIT “ 

program monitor; 
type 

byte = 0..255; 

spchrinhalt = packed arrayCO..O!] of byte; 
spchrstelle = record case boolean of 

true: (adresse:integer); 
false: (inhalt:''spchrinhalt) 
end; 


var 

hexstr,cmd:string; 
bye:boolean; 
point:integer; 

procedure pokeCadresse:integer; inhalt:byte); { aus Kap 3.1 > 

var dummy:spchrstelle; 

begin 

dummy.ad resse:=ad resse; 
dummy.inhalt~COH:=inhalt; 
end; 

function peek (adresse: integer): byte; -C aus Kap 3.1 > 

var dummysspchrstelle; 

begin 

dummy.ad resse:=ad resse; 
peek:=dummy.inhalt^CGU; 
end; 

procedure skip; { Leerstellen in Eingabe ueberlesen > 
begin 

if point>length(cmd) then exit(skip); 
while cmdCpointD= / * do 
begin 

point:=point+l; 

if point>length(cmd) then exit(skip); 
end; 

end; 

function getvalue(var value:integer):boolean; < holt ein Byte aus dem > 

var chsstringCID; < Eingabestring. Bei einem Fehler wird er Funktionswert > 
{ true > 

procedure error; 
begin 

getvalue:=true; 
exit(getvälue); 
end; 

begin 

skip; 

ch:= / 

getvalue:=false; 

if point>length(cmd) then error; 
chCll] :=cmdCpointI]; 
if pos(ch,hexstr)=0 then error; 
value:=pos(ch,hexstr)-l; 
point:=point+l; 

if point>length(cmd) then exit(getvälue); 
chCl 1 :=cmdCpoint 3 ; 

if pos(ch,hexstr)=ü then exit(getvälue); 
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value:=value*16+pos(ch,hexstr)—1; 
point:=point+l; 
end; 

function getadress(var value:integer):boolean; -C holt eine Adresse aus > 
var ch:stringCl3; { dem Eingabestring > 

procedure error; 
begin 

getadress:=true; 
exit(getadress); 
end; 

begin 
skip; 
ch:=' '; 

getadress:=false; 
if point>length(cmd) then error; 
ch CI3s=cmd C point3; 
if pos(ch,hexstr)=0 then error; 
value:=pos(ch,hexstr)-l; 
point:=point+l; 

for point:=point to point+3 do 
begin 

if point>length(cmd) then exit(getadress); 
chCl3:=cmdCpoint3; 

if pos(ch,hexstr)=ü then exit(getadress); 
value:=value*16+pos(ch,hexstr)-l; 
end; 

end; 


procedure wrbyt(value:integer); < gibt ein Byte in hexadezimaler > 
begin { Schreibweise aus > 

write(hexstrC(value div 16)+1D, 
hexstrC(value mod 16)+13| # 

end; 


procedure wradr(value: integer); -C gibt eine Adresse aus > 
begin 

if value>-l then write(hexstrC((value div 256) div 16)+1D, 
hexstrC((value div 256) mod 16)+1D, 
hexstrC((value mod 256) div 16)+!], 
hexstrC((value mod 256) mod 16)+1U) 


write ('- 
end; 


eise begin 

va1ue:=-va1ue-1; 
write(hexstrC16-((value div 
hexstrC16-((value div 
hexstrC16-((value mod 
hexstrC16-((value mod 

end; 


256) div 16)T, 
256) mod 16)D, 
256) div 16)3, 
256) mod 16)3); 


procedure disrange; { gibt einen Speicherauszug in hexadezimaler > 

var start,ende: integer; -C Schreibweise aus > 
fin:boolean; 


procedure error; 
begin 

write(chr(7)); 
exit(disrange); 
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end; 

begin 

if getadress(start) then error; 
skip; 

if cmdCpointDO'.' then error; 
point:=point+l; 

if getadress(ende) then error; 

if start mod ß > 0 then wradr(start); 

repeat 

if start mod 8=0 then 
begin 

writeln; 
wradr(start); 
end; 

wrbyt(peek(start)); 
fin:=(start=ende); 
start:=start+l; 
until fin; 
writeln; 
end; 

procedure dis; { gibt naechstes Byte aus > 

var val:integer; 

begin 

if getadressCval) then write(chr(7)) 
eise begin 

wradrCval); 
wrbyt(peek(val)); 
writeln; • 
end; 

end; 

procedure störe; -C veraendert eine Speicherstelle > 
var val,start:integer; 

procedure error; 
begin 

write(chr(7)); 
exit(störe); 
end; 

begin 

if getadress(start) then error; 
skip; 

if cmdCpointUO' s' then error; 
point:=point+l; 
while not getvalue(val) do 
begin 

poke(start,val); 
start:=start+l; 
end; 

end; 

procedure move; <. bewegt einen Speicherblock > 
var start,ende,dest:integer; 

fin:boolean; 

procedure error; 
begin 

write(chr(7)); 
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exit(move); 
end; 

begin 

if getadress(dest) then error; 
skip; 

if cmdCpointiK>'<' then error; 
point:=point+l; 

if getadress(start) then error; 
skip; 

if cmdCpointIK>'.' then error; 
point:=point+l; 

if getadress(ende) then error; 
repeat 

poke(dest,peek(start)); 
fin:=(start=ende); 
dest:=dest+l; 
start:=start+l; 
until fin; 
end; 

procedure verify; -C vergleicht zwei Speicherbereiche > 
var start,ende,dest:integer; 

finsboolean; 

procedure error; 
begin 

write(chr(7)); 
exit(verify); 
end; 

begin 

if getadress(dest) then error; 
skip; 

if cmdCpointD<>'<' then error; 
point:=point+l; 

if getadress(start) then error; 
skip; 

if cmdCpointHO' .' then error; 
point:=point+l; 

if getadress(ende) then error; 
repeat 

if peekCstartX>peek(dest) then 
begin 

wradr(start); 
wrbyt(peek(start)); 
write(' (.'); 
wrbyt(peek(dest)); 
writeln(chr(8),')'); 
end; 

fin:=(start=ende); 
dest:=dest+l; 
start:=start+l; 
until fin; 
end; 

procedure add; -C addiert zwei Bytes und gibt das Ergebnis aus > 
var al,a2:integer; 

procedure error; 
begin 
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writeCchr(7)); 
exit(add); 
end; 

begin 

skip; 

if cmdCpointH = / +* then al:=0 
eise begin 

if getvalue(al) then error; 
skip; 

if cmdCpointIK >'+' then error; 
end; 

point:=point+l; 
if getvalue(a2) then error; 
al:=al+a2; 
als-al mod 256; 
wrbyt(al); 
writeln; 
end; 

procedure sub; { substrahiert zwei Bytes und gibt das Ergebnis aus > 
var al,a2:integer; 

procedure error; 
begin 

write(chr(7)); 
exit(sub); 
end; 

begin 

skip; 

if cmdCpointIK 7 then al:=0 
eise begin 

if getvalue(al) then error; 
skip; 

if cmdCpointIK>'then error; 
end; 

point:=point+l; 
if getvalue(a2) then error; 
al:=al-a2; 

if al<ü then al:=256+al; 
wrbytCal); 
writeln; 
end; 

begin 

bye:=false; 

hexstr: =/ 0123A567Ö9ABCDEF / ; 
repeat -C Hauptschleife > 
write('*'); 
readlnCcmd); 
point:=1; 
if cmdO" then 

if pos< * :' ,cmd!)< >0 then störe 

eise if posC'M 7 ,cmd)<>0 then move 
eise if pos( ; V',cmd)<>0 then verify 
eise if pos('.',cmd)<>0 then disrange 
eise if post 7 *',cmd)<>0 then add 
eise if post'- 7 ,cmd)<>0 then sub 
eise if cmd= 7 Q 7 then bye:=true 
eise dis; 
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until bye; 
end. 


Wichtige Prozeduren 


"PEEK“,“POKE" 

: Wurden aus Kapitel 3.1 übernommen 

"WRBYT" 

: Ein Byte in hexadezimaler Schreibweise 
ausgeben 

“WRADR" 

: Ein Adresse in hexadezimaler 

Schreibweise ausgeben 

"STORE" 

: Bytes in Speicherbereich schreiben 
(":" Kommando) 

"MOVE" 

: Bytes verschieben ("M" Kommando) 

"VERIFY" 

: Bytes vergleichen ("V" Kommando) 

"DISRANGE" 

: Speicherbereich ausgeben 

("nnnn.mmmm" Kommando) 

"ADD" 

addieren zweier Hexzahlen ("+" Kommando) 

"SUB" 

substrahieren zweier Hexzahlen 
("-" Kommando) 

"DIS" 

nächste Speicherzellen ausgeben (bei 
leerer Eingabe) 


Um das Programm nicht unnütz aufzublähen wurde darauf verzichtet, 
sämtliche Fehleingaben zu erkennen. So wird z.B. die Eingabe "10<" 
nicht als Fehler erkannt und mit einem Ton quittiert. Vielmehr wird 
der Speicherinha1t der Adresse $10 ausgegeben und das "<" überlesen. 
Da dieses Vorgehen keinerlei Schaden in Form von Fehlern oder Pro- 
grammabbrüche zur Folge hat, werden diese Eingabefehler toleriert. 

Noch ein Hinweis zur Benutzung des Monitors. In der Languagekarte, 
in der POS steht ist der Speicherbereich SDOOO bis $DFFF zweimal 
vorhanden. Man kann natürlich immer nur eine sogenannte Bank benutz¬ 
ten. Auf die andere schaltet man durch Ansprechen bestimmter Spei¬ 
cherstellen um. Da jedoch der P-Code Interpreter in einer Bank 
steht, und unser Monitor ein Pascal-Programm ist, darf nicht in die 
andere Bank geschaltet werden. Das Ergebnis wäre ein Systemabsturz. 

Das Programm ist gut geeignet für Erweiterungen durch den Leser. 
Interessante neue Befehle könnten disassemblieren, assemblieren, das 
o.g. Problem mit der Bankumschaltung beseitigen, Folgen von Bytes 
suchen und Speicherauszüge in ASCII darstellen. Auch ein Disassemb¬ 
ler für P-Code wäre nützlich. 


3 . S Wie man einen Reset- ä k> f~ ämg t, 

In APPLESOFT-Basic ist es durch “Verbiegen" eines Zeigers möglich, 
das Drücken der Reset-Taste so abzufangen, daß ein Programm nicht 
abgebrochen, sondern weitergeführt wird. Wird unter POS die Reset- 
Taste gedrückt, so führt das System einen Kaltstart durch, d.h. es 
wird neu gebootet. Das laufende Programm wird abgebrochen, und alle 
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Daten sind verloren. 
Dateien bestehen, mit 
Folgen sind also recht 


Eventuell bleiben auf der 
denen nicht weitergearbeitet 
verheerend. 


Diskette offene 
werden kann. Die 


In diesem Kapitel wird ein Trick beschrieben, wie man eben dies ver¬ 
meiden kann. Es wird kein Kaltstart durchgeführt und man kann anhand 
einer Variablen erkennen, ob Reset gedrückt wurde. 


Dabei gehen wir so vor, daß wir zunächst fordern, daß sich das ei¬ 
gentliche Hauptprogramm in einer einzelnen Prozedur befindet. Wir 
verbiegen vorher den Reset-Vektor auf eine Assemblerroutine, die 
diese Prozedur mit "EXIT" verläßt. Nun gibt es noch eine Variable, 
die zunächst auf "TRUE" gesetzt wird. Sie wird nur dann auf "FALSE" 
gesetzt, wenn das Hauptprogramm korrekt verlassen wird. Dies bedeut¬ 
et, das die letzte Anweisung im Hauptprogramm z.B. "RESET:=FALSE" 
lautet. Da sich das Hauptprogramm in einer einzelnen Prozedur befin¬ 
den, die bei einem Reset verlassen wird, kann man im eigentlichen 
Hauptprogramm, d.h. dem Teil, der sich zwischen "BEGIN" und "END." 
befindet, anhand dieser Variablen feststellen, ob Reset gedrückt 
wurde. Man kann dann Anweisungen aufrufen, die Daten retten. 


Den oben genannte Reset-Vektor gibt es auch unter POS, da er vom 
6502-Prozessor gefordert wird. Er befindet sich immer in den Spei¬ 
cherstellen SFFFC und $FFFD (hex). Die dort stehenden Werte werden 
als Adresse aufgefasst. Diese Adresse wird dann vom Prozessor wie 
bei einem "JMP" angesprungen. Dort sollte dann eine Routine stehen, 
die einen Reset behandelt. Normalerweise zeigt der Reset-Vektor un¬ 
ter POS auf SFEEF (hex). Die dort stehende Routine veranlasst den 
beschriebenen Kaltstart. Da POS in der Languagekarte befindet, kön¬ 
nen wir diesen Zeiger mit "POKE" verändern. 

Das nächste Problem ist, wo wir unsere Assemblerroutine unterbrin¬ 
gen. Da es kaum ausreichenden freien Speicherplatz gibt, können wir 
sie nicht an eine bestimmte Adresse schreiben. Wir sich noch zeigen 
wird, ist dies auch nicht nötig, da die Routine "relokatibol" ist, 
d.h. sie läuft an jeder beliebigen Speicheradresse. Dies hängt damit 
zusammen, daß sie keine bestimmten Sprünge innerhalb der Routine 
benötigt. Es ist also egal, wo sich die Routine befindet; solange 
der Reset-Vektor auf sie zeigt funktioniert sie auch. 

Wir bringen unsere Routine einfach in einer Variablen unter. Damit 
wir wissen, wo die Variable, und damit auch unsere Assemblerroutine 
sich im Speicher befindet, deklarieren wir sie als Zeiger und legen 
sie mit "NEW" auf den sogenannten "Heap". Auf dem Heap befinden sich 
alle Variablen unter Pascal. Mit "NEW" kommt eine neue Variable hin¬ 
zu. Man nennt dies dynamische Variablenverwaltung. Die Speicher¬ 
adresse der Variablen erhalten wir, indem wir einfach den Wert des 
Zeigers auslesen. 

Unsere Maschinenroutine zur Behandlung eines Reset benötigt 18 
Bytes. Wir deklarieren die oben genannte Variable als eine Feld mit 
18 Bytes. Wir können nun über den Feldindex unsere Routine in die 
Variable schreiben. 


Diese Routine hat eine einzige Aufgabe. Sie soll das Hauptprogramm, 
das sich ja in einer Prozedur befindet, mit einem "EXIT" verlassen. 
"EXIT" ist eine Funktion des P-Code Interpreters, und wir können die 
Adresse dieser Funktion mittels der Liste aus Kapitel 3.2 feststel¬ 
len. Im "Apple Pascal Operating System" Handbuch sind auf Seite 242 
die Parameter beschrieben, die "EXIT" erwartet. Ubergeben werden die 
Segment- und die Prozedurnummer der Prozedur, die verlassen werden 
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soll. Beide müssen sich vor Aufruf von "EXIT" auf dem Stack befin¬ 
den, wobei die ersten zwei Bytes auf dem Stack die Prozedurnummer 
darstellen, und die zweiten zwei die Segmentnummer. 

Da wir annehmen, daß sich das Hauptprogramm in der ersten Prozedur 
im Programm befindet, ist die Segmentnummer 1 und die Prozedurnummer 
2. Wenn sich das Hauptprogramm nicht in der ersten Prozedur befinden 
soll, muß man zunächst die Segment- und Prozedurnummern feststellen. 
Man macht dies mit der "$L" Compileroption. Hat man diese zwei Wer¬ 
te, setzt man sie entsprechend in die Assemblerroutine ein. 

Diese Routine ist nun einfach aufgebaut. Zunächst wird die zweite 
Speicherbank der Languagekarte eingeschaltet, da sich dort der P- 
Code Interpreter befindet. Nun wird zunächst die Segment- und dann 
die Prozedurnummer auf den Stack geschoben. Danach wird "EXIT" bei 
SE784 (hex) mit "JMP" angesprungen. 

Die Pasca1prozedur, die dieses Assemblerprogramm installiert baut 
sich so auf, daß zunächst die Variable, in der sich die Assembler¬ 
routine befinden soll, mit "NEW" auf den Heap gelegt wird. Dann wird 
der Reset-Vektor so "verbogen", daß er auf diese zeigt. Nun wird die 
Assemblerroutine in die Variable geschrieben. Damit ist dieser Vor¬ 
gang beendet. 

Es ist vor Verlassen des Programms nötig, den Reset-Vektor wieder 
auf den ursprünglichen Zustand zu stellen. Wenn man sonst in der 
Hauptkommandozei1e Reset drücken würde, erhielte man einen "EXIT 
FROM UNCALLED PROCEDURE" Fehler, der sich immer wiederholen würde. 
Man könnte nur noch den Apple aus- und wieder einschalten. 

Ein Programm, in den Reset abgefangen werden soll baut sich wie 
folgt auf. Zunächst wird der Reset*-Vektor verbogen. Nun wird das 
eigentliche Hauptprogramm als Prozedur aufgerufen. Danach kann mit 
einer Variablen festgestellt werden, ob das Hauptprogramm mit Reset 
verlassen wirde. Ist dies der Fall, so kann man weitere Prozeduren 
aufrufen. Vor Verlassen des Programms muß der Reset-Vektor wieder 
zurückgestellt werden. 

Das Hauptprogramm, das in einer Prozedur enthalten ist, setzt zu 
Beginn eine Variable auf "TRUE". Sie wird erst in der letzten Anwei¬ 
sung wieder auf "FALSE" gesetzt. Wird zwischendrin das Hauptprogramm 
mit einem Reset verlassen, so ist die Variable "TRUE", was anzeigt, 
daß ein Reset vorkam. 

In dem hier angedruckten Programm steht das Hauptprogramm in der 
ersten Prozedur, und wird mit "FORWARD" erst später angegeben. Dies 
muß, wie oben beschrieben, nicht immer der Fall sein. Die Assembler¬ 
routine muß aber die richtigen Segment- und Prozedurnummern an 
"EXIT" übergeben. 


Pr og r amm. ’' RESET - TEIKT " 
program resetdemo; 

type byte = packed arrayCO..OD of 0..255; 
var reset:boolean; 

procedure hauptprogramm; 
forward; 
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procedure resetaendern; 

type routine= packed arrayC0..173 of 0..255; 

var resetroutine: ~routine; 

x: record case boolean üf 

true : (adresse:integer); 
false: (inhalt :~byte) 
end; 

dummy:integer; 
begin 

new(resetroutine); 

x.adresse:=-16245; < 1. Bank einschalten zum Schreiben > 

x.inhalt"C03:=0; 
x.inhalt~C03:=0; 

x.adresse:=-4; < Reset-Vektor auf 'Resetroutine' verstellen > 

x.inhalt"C03:=ord(resetroutine) mod 256; 
x.adresse:=-3; 

x.inhalt^COD^ordCresetroutine) div 256; 


x.adresse:=-16248; < l.Bank gegen Ueberschreiben schuetzen > 

x.inhalt~[I03:=0; 

< Resetroutine in den Speicher schreiben > 


resetroutine^C 03:=141; 
resetroutine'C 13:=136; 
resetroutine^C 23:=192; 
resetroutine"‘II 33:=169; 
resetroutine^C 43:= 0; 

resetroutine~C 53:= 72; 
resetroutine^C 63:=169; 
resetroutine'C 73:= 1; 

resetroutine^C 83:= 72; 
resetroutine"C 93:=169; 
resetroutine"'C!103 := 0; 

resetroutine''C113:= 72; 
resetroutine "'C123 :=169; 
resetroutine~C133:= 2; 

resetroutine"‘C143:= 72; 
resetroutine"T153:= 76; 
resetroutine"‘C163 :=132; 
resetroutine'"C173 :=231; 
end; 


■C STA $C088 ; 2. Bank einschalten > 


■C LDA #$00 ; segment #1 auf Stack schieben > 

•C PHA > 

{ LDA #$01 > 

I PHA > 

< LDA #$00 ; procedure #2 auf Stack schieben > 

■C PHA > 

■C LDA #$02 > 

■C PHA > 

■C JMP Exit ; Exit bei $E784 > 


procedure resetnormal; 

var x: record case boolean of 

true : (adresse:integer); 
false: (inhalt :~byte) 
end; 

dummy:integer; 
begin 

x.adresse:=—16245; i 1. Bank zum Schreiben schalten > 

x. inhalt"'C03 :=0; 
x.inhalt~C03:=0; 


x. ad resse :=-4; -C Reset-Vektor wieder auf $FEEF > 
x.inhalt"C03:=239; -C zuruecksetzen > 
x.adresse:=-3; 
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x. inhalt^CGI] :=254; 

x.adresse:=-16248; { 1. Bank gegen Ueberschreiben > 

n.inhalt^COD^O; < schuetzen > 

end; 

procedure hauptprogramm; 
ver chrchar; 

begin 

if reset then 
begin 
writeln; 

writelnC'Reset-Error wurde abgefangen !'); 
end; 

reset:=true; 
repeat 

write('Bitte eine Taste oder Reset druecken (ESC beendet)'); 
read(ch); 
until ch=chr<27); 

reset:=false; 
end; 

begin 

resetaendern; 
reset:=false; 
repeat 

hauptprogramm; 
until reset=false; 
resetnormal; 
end. 
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4.0 Text und Graphik 

Das Apple-Pascal System bietet mit der "Tur11 egraphics" Unit hervor¬ 
ragende Möglichkeiten zur Benutzung der Graphik. In keiner anderen 
Sprache, die es für den Apple gibt (Basic, Förth etc.) sind so 
klare, einfach zu benutzende Kommandos vorhanden. Es ist praktisch 
alles vorhanden, was man braucht und das Zusammenfassen von Befehls¬ 
folgen ist durch die Möglichkeiten der Sprache Pascal sehr einfach 
und f1exibe1. 

Im zweiten Teil dieses Kapitels beschäftigen wir uns mit Text. In 
Apple-Pascal ist eine Textbearbeitung schon eingebaut. Der vorhan¬ 
dene Texteditor eignet sich grundsätzlich für alle Sorten vor 
Schriftstücken. Zumeist wird er nur für die Programmeditierung be¬ 
nutzt. Er ist jedoch auch für die Erstellung von Briefen, Artikeln 
oder auch Büchern geeignet (Das Manuskript zu diesem Buch wurde 
unter POS geschrieben). Um mit ihm aus dem Apple ein ideales Text¬ 
system zu machen, fehlen allerdings noch einige Elemente der Text¬ 
verarbeitung. Die hier vorgestellten kleineren Hilfen sind jedoch 
nur ein kleiner Anriss der Möglichkeiten. Da es unter Pascal ein 
festes Datenformat für Texte gibt, ist es gut möglich, z.B. in ein 
Datenbankprogramm eine Schnittstelle zum Texteditor einzubauen. Hier 
wäre z.B. an eine sogenannte "Mailmerge"-Funktion, d.h. Serienbriefe 
zu denken. Nun jedoch zu den konkreten Verbesserungen. Wir werden 
einen kleinen Mangel des Editors beheben und die Größe eines Textes 
schnell feststellen können. 


4.1 HZ ±r“iL G r a.ph. i Ked i t o r 

In Kapitel 2.7 wurde beschrieben, wie wir ein Bild aus hochauflösen¬ 
den Graphik abspeichern und wieder laden können. Nun ist es aber 
sehr aufwendig, für jedes Bild ein spezielles Programm zu schreiben, 
das es zunächst zeichnet und dann auf der Diskette ablegt. Was wir 
brauchen, ist ein universelles Programm, mit dem wir auf den Bild¬ 
schirm beliebig zeichnen können. Dieses Kapitel beschreibt einen 
solchen Graphikeditor. 

Wir stellen zunächst wieder unsere Wünsche an das Programm zusammen. 
Es sollte es ermöglichen, verschiedene geometrische Grundformen in 
beliebiger Größe darzustellen. Außerdem sollte auch eine Möglichkeit 
zum "Freihandzeichnen" vorhanden sein. Dann wollen wir natürlich 
alle Farben benutzen können, die die "Turtlegraphics" zur Verfügung 
stellen. Schließlich wollen wir auch noch Texte in die Graphik 
schreiben und Bilder laden und abspeichern können. Die Eingabe soll¬ 
te möglichst einfach sein. 

Fangen wir mit der Eingabe an. Hier bietet sich die Benutzung eines 
Joysticks an. Wir können so schnell an beliebige Stellen des Bild¬ 
schirms durch Hebe1bewegung "fahren". Außerdem stehen uns damit auch 
noch die zwei Buttons als praktisches Eingabemittel zur Verfügung. 
Zum Aufrufen einer Programmfunktion verwenden wir die Tastatur. 

An geometrischen Figuren brauchen wir Punkte, Linien, Kreuze, Recht¬ 
ecke, ausgefüllte Rechtecke (im Programm "Flächen" genannt), Kreise 
und gefüllte Kreise ("Scheiben"). Mit ihnen lassen sich gute Graphi¬ 
ken erzeugen. Zudem haben sie alle die Eigenschaft, daß sie nur von 
einem oder zwei Parametern abhängig sind, so z.B. das Rechteck von 
den Ecken links oben und rechts unten. Im Bild 4.4.1 sind die Formen 
und ihre Bezugspunkte zu sehen. 
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X Punkt 


/ 

/ Linie 


/ 


X 


X 


i ; 

; ; 

- + 


X- 

!////! 

!////! 


Rechteck 


Fläche (gefülltes Rechteck) 


Kreis 
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Scheibe (gefüllter Kreis) 


TEXTABCDE Text 

X = Parameter 1 + = Parameter 2 

Bild 4.1.1: Die einzelnen Graphikelemente und ihre Bezugspunkte 


Da wir also nur einen oder zwei Punkte als Parameter benötigen, kön¬ 
nen wir die zwei Buttons am Joystick gut gebrauchen. Mit jedem Knopf 
wird ein Parameter festgelegt oder gelöscht. 

Damit ist auch schon das Gerüst für das Programm festgelegt. In ei¬ 
ner Haupt schleife wird zunächst über der Joystick ein Zeichencursor 
bewegt. Dann werden die Buttons abgefragt und eventuell die Parame¬ 
ter gesetzt oder gelöscht. Schließlich wird bei einem Tastendruck 
das entsprechende Kommando ausgeführt und die Hauptschleife beginnt 
von neuem. 

Das Abspeichern und Laden, sowie das Festlegen der Zeichenfarbe wird 
in Menüs erledigt. Dazu schalten wir in den Textmodus. Danach geht 
es wieder zurück in den Graphikmodus. 

Hinzu kommen noch vier weitere Befehle. Je einen zum Einfärben der 
ganzen Graphikseite in der Zeichenfarbe und zum Löschen. Dann kann 
dem Benutzer zur Infomation eine Kommandoübersicht ausgegeben werden 


100 







Text & Graphik 


und das Programm beendet werden. 

Als Zeichencursor wählen wir einen Pfeil, für die Parameter ein 
geradestehendes und ein diagonales Kreuz. Sie alle werden mit der 
"DRAWBLOCK"-Prozedur 'auf den Schirm gebracht. Hierzu brauchen wir 
die “Tur11egraphics" Unit. Da wir die PADDLE und BUTTON Werte einie¬ 
sen müssen, kommt dazu noch die "Applestuff" Unit. Und schließlich 
benötigen wir für Kreise eine Wurze1funktion, und damit die "Trans- 
cend" Unit. 

Das Programm gestaltet sich recht einfach. Im Initialisierungsteil 
werden die Symbole für den Cursor und die Parameter definiert, sowie 
Variablen auf Anfangswerte gebracht. 

In der Prozedur "readin" findet sich die oben genannte Hauptsch1eife 
und Prozeduren für die Kommandos. Es ist sehr einfach, neue Befehle 
hinzuzufügen. Man braucht nur eine entsprechende Prozedur schreiben, 
und diese über die Tastatureingabe aufzurufen. Falls ein Joystick 
benutzt wird, der drei Buttons hat, wird es möglich, auch andere 
geometrische Formen zu verwenden, die drei Parameter benötigen. Hier 
wären Dreiecke, andere Polygone und Parallelogramme zu nennen. Man 
müßte hierzu eine dritte Parametervariable einführen und diese bei 
der Buttoneingabe berücksichtigen. 

Auch ein Befehl, der die Graphikseite auf einem Drucker ausgibt wäre 
sehr nützlich. Da diese bei fast jedem graphikfähigen Drucker anders 
aussehen wird, wurde bei dem hier abgedruckten Programm darauf ver¬ 
zichtet . 

Wichtige Variablen 

"CURSOR","PARISHAPE","PAR2SHAPE" : Bitfelder, die das Aussehen 

der Symbole für den Cursor 
und die Parameter enthalten 

"PARI","PAR2" : Records für die Parameter. "ON" gibt an, ob das 

Parameter gesetzt ist und "X" und "Y" dessen 
Position 

"VIEWXI","VIEWX2", 

"VIEWY1","VIEWY2" : Enthalten die Werte des Bildschirmrandes. 

Der Cursor kann nicht über sie hinaus und 
damit aus dem Bild bewegt werden. 

"X","Y" : Enthalten die Position des Cursors 

"FREIHAND" : Gibt an, ob gerade freihand gezeichnet wird 

Kommando1iste 

"P" : Punkt 

"L" : Linie 

"R" : Rechteck 

"F" : Fläche 

"K" : Kreis 

"S" : Scheibe 

"T" : Text in die Graphik schreiben 

"E" : Schirm löschen 

"H" : Schirm mit Zeichenfarbe füllen 
"C" : Zeichenfarbe setzen 
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"D" : Dateiverwaltung (Lesen und Schreiben eines Bildes) 

"I" : Kommando 1iste ausgeben 

"B" : Programm beenden 

Progr amm ** GRAFED I T . TEXT " 

•C$S+> 

program grafeditor; 

uses turtlegraphics,applestuff,transcend; 

type shapel = packed array CI..7,1..73 of boolean; 

Parameter = record 

on :boolean; 
x,y:integer; 
end; 

bild = packed arrayCO..81913 of Ü..255; 
bildvar = record case boolean of 

true: (adresse:integer); 
false:(zeiger: A bild) 
end; 


var Cursor,parishape,par2shape:shapel; 
pari,par2:parameter; 
viewxl, viewx2,viewyl,viewy2, 
x,y:integer; 
f reihand:boolean; 


segment procedure init; 

procedure shape(1ine:integer; var shpe:shapel; inf:string); 

var i:integer; 

begin 

for i:= 1 to 7 do 

if infCiDO' ' then shpeCÖ-i, lineD :=true; 

end; 


begin 

initturtle; 

<. Shapes erstellen > 

fillchar(parishape,sizeof(parishape),chr(0)); 
fi1lchar(par2shape,sizeof(par2shape),chr<0)); 
fillchar(Cursor,sizeof(Cursor),chr(0)); 

shaped , parlshape,' X X'); 

shape(2,parlshape,' X X '); 

shape(3,parlshape,' XX '); . 
shape(4,parlshape,' '); 

shape(5,parlshape,' XX '); 
shape(6,parlshape,' X X '); 

shape(7,parlshape,'X X ; ); 

shaped ,par2shape, ' X '); 
shape(2,par2shape, ' X '); 
shape(3,par2shape ,' X # ); 
shape(4,par2shape,'XXX XXX'); 
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shape(5,par2shape,' 

X ') 

shape(6,par2shape,' 

X ') 

shape(7,par2shape,' 

X- ') 

shape(1,Cursor,'XXXXX 

# ); 

shape(2,Cursor, / XX 

'); 

shape(3,Cursor,'X X 

'); 

shape(4,Cursor,'X X 

' ) ; 

shape(5,Cursor,'X X 

' > ? 

shape(6,Cursor,' X 

'); 

shape(7,Cursor,' 

X'); 


{ Variablen initialisieren > 

viewxl:=0; 

viewx2:=278; 

viewyl :=6; 

viewy2:=190; 

x:=140; 

y:=96; 

pari.on:=false; 
parl.x :=280; 
parl.y :=0; 
par2.on:=false; 
par2.x :=280; 
par2.y :=0; 

f reihand:=false; 

end; 

procedure home; -C loescht Bildschirm > 
begin 

write(chr(12)); 
end; 

procedure bell; < gibt akustisches Zeichen > 
begin 

write(chr(7)); 
end; 

procedure readin; 
var dummy,padü,padl:integer; 
finis:boolean; 
ch schar; 

pcolsscreencolor; 

procedure drawcursor; < bringt Zeichencursor auf den Bildschirm > 
begin 

drawblock (cursor,2,0,0,7,7, x,y-6,6); 
end; 

procedure xdrawpars; -C loescht Parameter auf dem Bildschirm > 
begin 

drawcursor; 

if pari.an then drawblock(parishape,2,0,0,7,7,pari.x-3,pari.y-3,6); 
if par2.on then drawblock(par2shape,2,0,0,7,7,par2.x-3,par2.y-3,6); 
end; 

procedure plotCx,y:integer); < setzt einen Punkt > 
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begin 

pencolor(none); 
moveto(x,y); 
turnto(O); 
pencolorCpcol); 
move(O); 
end; 

procedure punkt; -C Kommando ' P' > 

var dot:boolean; 

begin 

if parl.on and (not par2.on) 
then begin 

xdrawpars; 

plot (pari. x, pari -y*>; 
pari.on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure linie; -C zieht eine Linie auf dem Bildschirm > 
begin 

if parl.on and par2.on 
then begin 

xdrawpars; 
pencolor(none); 
moveto(par).x,pari.y); 
pencolor(pcol); 
moveto(par2.x,par2.y); 
pari.on:=false; 
par2.on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure kreuz; -C zeichnet ein Kreuz auf dem Bildschirm > 

var dx,dy:integer; 

begin 

if parl.on and par2.on 
then begin 

xdrawpars; 
dx:=par2.x-parl.x; 
dy:=par2.y-parl.y; 
pencolor(none); 
moveto(pari.x+dx,pari.y+dy); 
pencolor(pcol); 
moveto(parl.x-dx,pari.y-dy); 
pencolor(none); 
moveto(pari.x+dy,pari.y+dx); 
pencolor(pcol); 
moveto(parl.x-dy,pari.y-dx); 
pari.on:=false; 
par2.on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure rechteck; { zeichnet ein Rechteck auf dem Bildschirm > 
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begin 

if parl.on and par2.on 
then begin 

xdrawpars; 
pencolortnone); 
movetoCparl.x,pari.y); 
pencolor(pcol); 
moveto(par2.x,pari,y); 
moveto(par2.x,par2.y); 
moveto(parl.x,par2.y); 
moveto(parl.x,pari.y); 
pari.on:=false; 
par2.on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure flaeche; -C zeichnet eine Flaeche auf dem Bildschirm > 
var ycount:integer; 

p:parameter; 

begin 

if parl.on and par2.on 
then begin 

xdrawpars; 

if parl.y > par2.y then begin 

p:=parl; 
pari:=par2; 
par2:=p; 
end; 

for ycount:=parl.y to par2.y do 
begin 

pencolor Cnone); 
movetoCparl.x,ycount); 
pencolorCpcol); 
moveto(par2.x,ycount); 
end; 

pari.on:=false; 
par2.on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure kreis; { zeichnet einen Kreis auf dem Bildschirm > 
var radiusrreal; 

i,laenge,winkel,umfang:integer; 
begin 

if parl.on and par2.on 
then begin 

xdrawpars; 

radius:=sqrt((par2.x-parl,x)*(par2.x-parl.x) + 
Cpar2.y-parl,y)*(par2.y-parl,y)); 
umfang:=truncC2*radius*3.145); 
laenge:=umfang div 20; 
winkel:=-360 div 20; 
pencolor(none); 

movetoCtruncCparl.x+radius),parl.y); 

turnto(180); 

pencolor(pcol); 

turnC(180+winkel) div 2); 
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for i:= 1 to 20 da 
begin 

move(laenge); 
turn(winkel); 
end; 

pari.on:=false; 
par2.on:=false; 
drawcursor; 
end 

eise bell; 

end; 

procedure scheibe; {.zeichnet eine Scheibe auf dem Bildschirm > 
var p:parameter; 

i,x 1 y,x2:integer; 

begin 

if parl.on and par2.on 
then begin 

p:=parl; 
kreis; 
xdrawpars; 
y:=0; 
repeat 
y:=y+l; 

until screenbit(p.x,p.y+y) or screenbit(p.x+1,p.y+y); 
for i:= 0 to y do 
begin 
x:=p.x; 
repeat 
x:=x+l; 

until screenbit(x,p.y+i); 
pencolor(none); 
moveto(x,p.y+i); 
x2:=x; 
x:=p.x; 
repeat 
x:=x-l; 

until screenbitCx,p.y+i); 
pencolor(pcal); 
moveto(x,p.y+i); 
pencolor(none); 
moveto(x2,p.y-i); 
pencolorCpcol); 
moveto(x,p.y-i); 
end; 

drawcursor; 

end 

eise bell; 

end; 

procedure text_eingabe; { bringt einen eingegebenen Text auf den Bildschirm > 

var s:string; 

begin 

if parl.on and (not par2.on) 
then begin 

textmode; 

xdrawpars; 

writeln( ; Texteingabe 7 ); 

writelnC 7 - 7 ); 

writeln; 

write( 7 Text > 7 ); 
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readln(s); 
pencolor(none); 
movetoCparl.x,pari.y); 
wstring(s); 
pari.on:=false; 
grafmode; 
drawcursor; 
home; 
end 

eise bell; 

end; 

procedure schirm_fuellen; { fuellt den Bildschirm in der Zeichenfarbe > 
begin 

xdrawpars; 
fi1lscreen(pcol); 
pari.on:=false; 
par2.on:=false; 
drawcursor; 
end; 


procedure schirm_loeschen; -C loescht den Bildschirm > 

var colsscreencolor; 

begin 

col:=pcol; 
pcol:=black; 
schirm_fuellen; 
pcol:=col; 
end; 


procedure color_setzen; { setzt Zeichenfarbe > 

var ch:char; 

begin 

textmode; 

writeln('Farbe setzen'); 

writeln('-' ); 

writeln; 

writeln('A) white'); 
writeln('B) whitel'); 
writeln('C) white2'); 
writeln('D) black'); 
writeln('E) blackl'); 
writeln('F) black2'); 
writeln('G) green'); 
writeln('H) violet'); 
writeln('I) orange'); 
writeln('J) blue'); 
writeln('K) reverse'); 
writeln; 

writeln('U) unveraendert lassen'); 


writeln; 

writeC'Bitte auswaehlen : 
repeat 

read <ch); 

until ch in C'A'..'K','U' 
case ch of 

'A','a': pcol:=white; 
'B'j'b's pcol:=whitel; 
'C'j'c'; pcol:=white2; 
'D'j'd's pcol:=black; 
'E','e': pcol:=blackl; 


')? 


' k' ,' u' D; 


107 



Text & Graphik 


'F 7 ,'f': 
'G' , 7 g 7 : 
7 H 7 , 7 h 7 : 

'JVj': 

7 K 7 , 7 k 7 : 
end; 

grafmode; 
home; 
end; 


pcol:=black2; 
pcol:=green; 
pcol:=violet; 
pcol:=orange; 
pcol:=blue; 
pcol:=reverse 


procedure datei; -C schreibt und liest Bilder auf und von der Diskette > 
var ch:char; 

name:string; 
fehler:boolean; 


procedure pixsave Cfilename:string; var er:boolean); -C aus Kap. 2.7 > 
var pix: file of bild; 
x: bildvar; 

begin 

{$I-> 

filename:=concatCfilename, 7 .FOTO 7 ); 

x.ad resse:=8192; 

pix~ :=x. zeiger“'; 

rewriteCpix,filename); 

if ioresultOO then er:=true; 

putCpix); 

if ioresultOO then er:=true; 
if not er then closeCpix,lock); 
if ioresultOO then er:=true; 

C$I+> 
end; 

procedure pixload Cfilename:string; var er:boolean); -C aus Kap. 2.7 > 
var pix: file of bild; 
x: bildvar; 

begin 

-C$1-} 

filename:=concatCfilename, 7 .FOTO 7 ); 
reset(pix,filename); 
if ioresultOO then er:=true; 
getCpix); 

if ioresultOO then er:=true; 
closeCpix,normal); 
if ioresultOO then er:=true; 
if not er then begin 

x.adresse:=8192; 
x.zeiger":=pix"; 
end; 

{$!+> 
end; 

begin 

textmode; 

xdrawpars; 

writelnC 7 Datei-Verwaltung 7 ); 

writelnC 7 - 7 ) ; 

writeln; 

writelnC'L Laden eines Bildes 7 ); 
writelnC 7 A Abspeichern eines Bildes 7 ); 
writeln; 
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writeln('V Verlassen'); 
writeln; 

writeC'Bitte auswaehlen: '); 
repeat 

read(ch); 

until ch in C'L','l','A','a','V','v'U; 
writeln; 

if not (ch in C'V'/v'D) then 
begin 
writeln; 

writeC'Filename : '); 
readln(name); 
pari.on:=false; 
par2.on:=false; 
end; 

fehler:=false; 

if ch in C'L','1'3 then pixload(name,fehler); 
if ch in C'A','a'D then pixsaveCname,fehler); 
if fehler then writeln(chr(13),'Diskettenfehler !'); 
write(chr(13),'Bitte eine Taste druecken '); 
read(ch); 
drawcursor; 
grafmode; 
home; 
end; 


procedure info; { gibt Kommanmdoliste aus > 

var chichar; 

begin 

textmode; 

writeln('Info ueber die Tastaturkommandos'); 

-'). 


writeln(-- 

writeln; 

writeln('P Punkt'); 
writeln('L Linie'); 
writeln('G Kreuz'); 
writeln('R Recheck'); 
writeln('F Flaeche'); 
writeln('K Kreis'); 
writeln('S Scheibe'); 
writeln('T Text eingeben'); 
writeln('M Malen'); 
writeln; 

writeln('H ganzen Schirm einfaerben'); 
writeln('E ganzen Schirm loeschen'); 
writeln('C Zeichenfarbe setzen'); 
writeln; 

writeln('D Dateiverwaltung'); 

writeln('I Info'); 

writeln; 

writeln('B Beenden'); 
writeln; 

write('Bitte eine Taste druecken '); 
read(ch); 
grafmode; 
home; 
end; 


begin 

pcol:=whitel; 
finis:=false; 
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drawblock(cursor,2,D,0,7,7 l x,y-6,6); 
repeat 

■C Paddle-Eingabe > 
pad0:=paddle(0); 
for dummy:=l to 3 do; 
padl:=paddle(l); 

if Cpad0M60) or (pad0<94) or (padl>160) or (padl<94) then 
begin 

drawcursor; 

x:=x + trunc( (padO-127) / 33); 
y:=y - trunc( (padl-127) / 33); 
if x<viewxl then x:=viewxl; 
if x>viewx2 then x:=viewx2; 
if y<viewyl then y:=viewyl; 
if y>viewy2 then y:=viewy2; 
if freihand then plot(x,y); 
drawcursor; 
end; 

■C Button-Eingabe > 
if button(O) then 
if parl.on 
then begin 

drawblock(parlshape,2,0,0 f 7,7,pari.x-3,pari.y-3,6) 
pari.on:=false; 
end 

eise begin 

d rawb1ock(parishape,2,0,0,7,7,x-3,y-3,6); 
pari.on:=true; 
parl.x :=x; 
pari.y :=y; 
end; 

if button(l) then 
if par2.on 
then begin 

d rawb1ock(par2shape,2,0,0,7,7,par2.x-3,pa r2.y-3,6) 
par2.on:=false; 
end 

eise begin 

drawblock(par2shape,2 1 0,0,7,7,x-3,y-3,6); 
par2.on:=true; 
par2.x :=x; 
par2.y :=y; 
end; 

< Tastatur-Eingabe > 
if keypress then 
begin 

read(keyboard,ch); 
case ch of 


' ?' ,'p': punkt; 

'L 7 ,' 1' : linie’; 

'S'^g': kreuz; 

7 R ',' r 7 : rechteck; 

7 F 7 , 7 f 7 : flaeche; 

7 K 7 , 7 k 7 : kreis; 

7 S 7 , 7 s 7 : scheibe; 

7 T 7 , 7 t 7 : text_eingabe; 

7 M 7 , 7 m 7 : freihand:=not freihand; 
7 H 7 , 7 h 7 : schirm_fuellen; 

7 E 7 , 7 e 7 : schirm_loeschen; 
7 C 7 , 7 c 7 : color_setzen; 

7 D 7 , 7 d 7 : datei; 
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'I' , 7 i': info; 

'B','b': finis:=true 
end; 
end; 

until finis; 
end; 

begin 
home; 
init; 
readin; 
end. 


Abschießend noch etwas zur Benutzung. Gute Effekte kann man vor al¬ 
lem durch die Farbe "reverse" erzielen. Damit sehen Flächen und 
Scheiben, die über andere Formen gehen sehr interessant aus. Schau¬ 
bilder kann man einfach erstellen durch Linien, Rechtecke, Kreise 
und entsprechenden Beschriftungen. 


4.2 SYSTEM . CHARSET wird öditier't 

Mit der "Turtlegraphics" Unit kann man mit den Prozeduren "WCHAR" 
und "WSTRING" Textzeichen in eine Graphik schreiben. Die dazu nöti¬ 
gen Zeichendefinitionen stehen in dem File "SYSTEM.CHARSET". Leider 
wird bei Apple-Pascal kein Dienstprogramm mitgeliefert, mit dem man 
das Aussehen der Zeichen verändern kann. Dies müßte jedoch relativ 
einfach sein, da man "SYSTEM.CHARSET" als Datenfile ansprechen kann. 

Jedes Zeichen wird aus 56 Punkten zusammengesetzt. Seine Höhe 
beträgt acht Zeilen und seine Breite sieben Punkte. Demnach besteht 
jede Zeichendefinition aus acht Bytes, wobei jedes Byte das Aussehen 
der jeweiligen Zeile innerhalb des Zeichens bestimmt. Innerhalb 
eines Bytes gibt jedes Bit an, ob ein Punkt gesetzt wird, oder 
nicht. Da die Zeichen nur sieben Punkte breit sind, wird das achte 
Bit Cb7) nicht benutzt. Wären z.B. alle acht Bytes eines Zeichens 
mit dem Wert 127 gefüllt, so ergäbe dies ein weißes Rechteck. Dies 
ist der Fall beim Zeichen 127. Das Zeichen 32 (Leerzeichen) besteht 
logischerweise aus achtmal dem Wert 0. 

Da in "SYSTEM.CHARSET" die Definitionen für 128 Zeichen enthalten 
sind, kann man sie in ein Feld einiesen, das 128 Elemente hat. Jedes 
einzelne Element besteht wiederum aus 8 Bytes. Um Platz zu sparen, 
handelt es sich um ein gepacktes Feld, wie im "Apple Pascal Lang- 
uage" Handbuch auf den Seiten 99 - 100 beschrieben. 

Das Dienstprogramm, das hier beschrieben wird, gestaltet sich ein¬ 
fach. Zunächst werden die Zeichendefinitionen aus "SYSTEM.CHARSET" 
oder einem anderen Zeichensatz-File eingelesen. Dann kann der Be¬ 
nutzer ein Zeichen auswählen, und in diesem jeden Punkt setzen oder 
löschen. Zum Schluß wird der Zeichensatz wieder unter einem beliebi¬ 
gen Namen auf der Diskette abgespeichert. 

Zu Beginn des Programms wird das Aussehen des Bildschirms mit der 
Prozedur "INIT" gestaltet. Es werden zwei Felder aufgebaut. Eins, um 
die 128 Zeichen darzustellen und ein Gitter für die vergrößerte Dar¬ 
stellung eines Zeichens. 

Dann wird die Prozedur "READINCHARS" aufgerufen. Sie fragt den Be-' 
nutzer nach dem Namen des zu ladenden Zeichensatzes und liest in 
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ein. Die Eingabe des Filenamens erfordert eine eigene Prozedur. Da 
wir uns im Graphikmodus befinden, würde bei einem "READLN"-Kommando 
keine Rückmeldung auf dem Bildschirm erfolgen. Also brauchen wir die 
Prozedur "READFILENAME". Sie liest ein Zeichen ein und gibt es in 
der Graphik aus. Weiterhin wird die "Backspace" Taste (Pfeil links) 
zum Löschen des letzten Zeichens benutzt. Mit <ret> wird die Eingabe 
abgeschlossen. Nachdem der Zeichensatz eingelesen wurde, gibt "READ- 
INCHARS" ihn auf dem Schirm aus. 

Darauf folgt die zentrale Prozedur des Programms, "EDIT". Der Be¬ 
nutzer kann einen blinkenden Cursor in dem Zeichensatz bewegen. Dazu 
werden die Tasten "I","M","J" und ”K" benutzt. Befindet sich der 
Cursor über dem gewünschten Zeichen, so kann es durch <ret> editiert 
werden. Wird "F" eingegeben, wird die Prozedur beendet. 

Das Editieren eines einzelnen Zeichens geschieht in der Prozedur 
"EDITONE". Eine Zeichendefinition besteht, wie oben beschrieben, aus 
acht Bytes. Da wir- beim Zeicheneditieren jedoch einzelne Punkte 
setzen bzw. löschen wollen, rechnen wir die betreffende Zeichendefi¬ 
nition in ein Boolean-Feld um. Damit können wir jeden Punkt einfach 
ansprechen. 

Wir stellen dann das Zeichen vergrößert dar, wobei jeder einzelne 
Punkt in dem Zeichen ein Rechteck von 15 X 12 Punkten auf dem Bild¬ 
schirm einnimmt. Nun wird ein zweiter Cursor sichtbar, der wieder 
mit den Tasten "I","M","J" und "K" bewegt werden kann. 

Mit der Leertaste (<spc>) kann der Benutzer den Punkt, über dem der 
Cursor gerade steht, "umdrehen". D.h., ein weißer Punkt wird 
schwarz, und ein schwarzer weiß. Mit dem Kommando "R" kann man das 
gesamte Zeichen invertieren. Falls ein Zeichen völlig neu gestaltet 
werden soll, kann es mit "L" gelöscht werden. Mit der Eingabe von 
<ret> wird die Editierung abgeschlossen, und man kann ein anderes 
Zeichen auswählen. 


Wenn "EDIT" mit "F" abgeschlossen wurde, wird der Zeichensatz mit 
"WRITEOUTCHARS" wieder unter einem beliebigen Namen auf die Diskette 
geschrieben, und das Programm ist beendet. 

Wird der Zeichensatz später in "SYSTEM.CHARSET" umbenannt, so ver¬ 
wenden die "Turtlegraphics" ihn anstandslos. Der Leser sollte dies 
ausprobieren, indem er einen neuen Zeichensatz gestaltet, und dann 
das Programm aus Kapitel 4.1 startet. Er kann nun die erzeugten Gra¬ 
phiken mit seinem individuellen Zeichensatz beschriften. 


Wichtige Typen und Variablen 


"CHARFIELD" : Typ, der der Struktur eines Zeichensatzes 
entspricht. 

"CHARS" : Variable, die den zu editierenden 

Zeichensatz aufnimmt. 


"CHARFILE" 


File zum Einlesen und Schreiben des 
Zeichensatzes. 


"ONECHAR" 


Booleanfeld aus der Prozedur "EDITONE", 

das das Aussehen eines Zeichens aufnimmt. 
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Kommandoliste 

"I" : bewegt Cursor nach oben 
"M" : bewegt Cursor nach unten 

"K" : bewegt Cursor nach rechts 

"J" : bewegt Cursor nach links 

<ret>: ein Zeichen editieren 

dann: "I","M","K","J" : Cursorbewegungen wie oben 
<spc> : invertiert einen Punkt 

"R” : invertiert das ganze 

Zeichen 

*'L" : löscht das ganze Zeichen 

<ret> : beendet 

"F" : Beendet Editierung 


Progr amm “ CHARED I T . TEXT ” 
{$S+> 

program charedit; 

uses turtlegraphics,applestuff; 

type 

charfield = packed arrayCO..127,0..7U of 0..255; 
var 

chars: charfield; 
charfile: file of charfield; 

procedure init; < legt Bildschirmlayout fest > 

var i:integer; 

begin 

initturtle; 
pencolor(none); 
for i := 0 to 8 do 
begin 

{ horizontal > 
pencolor(none); 
moveto(0,191-i*18); 
pencolor(green); 
moveto(98,191-i*16); 

•C vertikal > 
if i<8 then 
begin 

pencolor(none); 
moveto(i*14,191); 
pencolor(green); 
moveto(i#14,63); 
end; 


end; 

pencolor(none); 
moveto(130,191); 
pencolor(white); 
moveto(278,191); 
pencolor(whitel); 
movetoC278,115); 
pencolor(white); 
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moveto(130,115); 
pencolorCwhitel); 
moveto(130,191); 

end; 

procedure read_filenameCvar inprstring); { liest einen Filenamen von der > 
var retrboolean; -C Tastatur ein, und bestaetigt jeden Buchstaben auf dem > 
c:char; < Bildschirm > 

begin 
inp: =/ '; 
pencolor(none); 
moveto(ü,0); 

wstring('Zeichensatz?'); 

ret:=false; 

repeat 

moveto(90+length(inp)#7,0); 

wchar(; 

repeat 

until keypress; 
read(c); 

if eoln then rets=true 
eise if c=chr(ß) then 

if length(inp)>0 
then begin 

moveto(90+length(inp)*7,0); 
wchar(' 

inp:=copy(inp,l,length(inp)-l); 
end 

eise write(chr(7)) 

eise begin 

moveto(90+length(inp>*7,0); 
wchar(c); 

inp:=concat(inp,' '); 
inpClength(inp)D:=c; 
end; 

if ret then if length(inp)=0 then 
begin 

write(chr<7)); 
ret:=false; 
end; 

until ret; 

moveto(90+length(inp>*7,0); 
wchar(' '); 
read ln; 
end; 

procedure readin_chars; -C liest Zeichensatz von der Diskette ein > 
var name:string; 
i,j:integer; 


begin 

read_filename(name); 
resetCcharfile,name); 
getCcharfile); 
chars: =charf ile''; 
closeCcharfile); 
moveto(0,0); 

wstring(' '); 

for i:=0 to 7 do 
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for j:=0 to 15 do 

drawblock(charsCi*16+jD,1,0,0,7,8,134+j*9,181-i*9,10); 

end; 


procedure edit; -C laesst den Benutzer den Zeichensatz editieren > 
var setx,sety:integer; 
ed ,quit:boolean; 
ch schar; 

Cursor: packed arrayCO..7,0..6D of boolean; 
cursoron:boolean; 
timer:integer; 


procedure editone(charno:integer); -C laesst den Benutzer ein Zeichen > 
var shapespacked arrayCl..15,1..123 of boolean; -C editieren > 

onechar: packed array CO..7,0..63 of boolean; 
i,jsinteger; 
x,y:integer; 
byte,p:integer; 
quit:boolean; 
ch schar; 

procedure giveout; -C gibt ein Zeichen vergroessert aus > 

var xcnt,ycnt:integer; 

begin 

for ycnt:= 0 to 7 do 
for xcnt:=0 to 6 do 
if onecharCycnt,xcnt3 

then drawblock(shape,2,0,0,12,15,2+xcnt*14,64+ycnt#16,'15) 
eise drawblock(shape,2,0,0,12,15,2+xcnt#14,64+ycnt*16, 0); 

end; 
begin 

for i:= 0 to 7 do 
begin 

byte:=charsCcharno,i3; 
byte:=byte mod 128; 
p:=64; 

for js= 0 to 6 do 
begin 

if byte div p = 1 

then onecharCi,6-j3:=true 
eise onecharCi,6-j3:=false; 
byte:=byte mod p; 
p:=p div 2; 
end; 

end; 

giveout; 


moveto(0,40); 
wstring< ' I,M,K,J 
moveto(0,30); 
wstring(' <spc> 
moveto(0,20); 
wstring(' R 
moveto(0,10); 
wstring(' L 
moveto(0,0); 
wstring(' <ret> 


bewegen den Cursor '); 
invertiert einen Punkt '); 
invertiert das Zeichen 7 ); 
loescht das Zeichen '); 
beendet Zeicheneditierung'); 
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x:=0; 

y:=0; 

quit:=false; 
chartype(6); 
moveto(4+x*14,67+y*16); 
wchar(chr(127)); 
repeat 
repeat 

until keypress; 
read Cch); 

moveto(4+x*14,67+y*16); 
wchar(chr<127)); 
case ch of 

'i' ,'I' : begin 

y:=y+l; 

if y>7 then ys=ü; 
end; 

'm', 7 M': begin 

y:=y-l; 

if y<0 then y:=7; 
end; 

'k' ,'K' : begin 

x:=x+l; 

if x>6 then x:=0; 
end; 

' j','J': begin 

x:=x-l; 

if x<0 then x:=6; 
end; 

' ': begin . 

if not eoln then 
begin 

onecharCy,xD:=not onecharCy,x3; 
if onecharCy,xU 

then drawblock(shape,2,0,0,12,15,2+x*14,64+y*16,15) 
eise drawblock(shape,2,0,0,12,15,2+x#14,64+y#16, Q) 

end; 

end; 

' r' ,'R': begin 

for i:=0 to 7 do 
for j:=0 to 6 do 

onecharCi,jD:=not onecharCi,j3; 
giveout; 
end; 

'r,'L': begin 

fillchar(onechar,sizeof(onechar),chr(0)); 
giveout; 
end 

end; 

if eoln then begin 

read ln; 
quits^true; 

moveto(4+x*14,67+y*16); 
wchar(chr(127)); 
end; 

moveto(4+x*14,67+y#16); 
wchar(chr(127)); 
until quit; 

for i:= 0 to 7 do 
begin 
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byte:=0; 

p:=64; 

for j:= 0 to 6 do 
begin 

if anecharCi,6-jT then byte:=byte+p; 
p:=p div 2; 
end; 

charsCcharnOjiD:=byte; 
end; 

fillchar(onechar,sizeof(onechar),chr(0)); 
giveout; 
end; 


begin 
setx:=1; 
sety:-l; 

fillchar(cursor,sizeof(cursor),ehr(255)); 
drawblock(cursor,l,0,D,7,8,125+setx*9,190-sety*9,6); 


repeat 

chartype(lO); 
moveto(0,40); 
wstring(' 
moveto(0,30); 
wstring(' 
moveto(0,20); 
wstring('I,M,K,J 
moveto(0,IG); 
wstring(' <ret> 
moveto(0,0); 
wstring(' F 
quit:=false; 
repeat 




bewegen den Cursor '); 
waehlt ein Zeichen aus'); 
beendet die Editierung '); 


cursoron:=true; 

timer:=300; 


repeat { wartet auf Tastendruck und gibt blinkenden Cursor aus > 
timer:=timer—1; 
if timer=ü then 
begin 

timer:=300^ 

drawblock(cursor,l,0,0,7,8,125+setx#9,190-sety*9,6); 
cursoron:=not cursoron; 
end; 

until keypress; 
if not cursoron then 

drawblock(cursor,1,0,G,7,8,125+setx*9,190-sety#9,6); 
read(ch); 

if ch in C' i' , ' I' ,' m' ,' M' ,' k' , * K' ,' j' ,' J' 1 then 
begin 

drawblock(cursor,l,0,0,7,8,125+setx#9,190-sety*9,6); 
case ch of 

'i','I':begin 

sety:=sety-l; 
if sety<l then sety:=8; 
end; 

' m','M':begin 
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sety:=sety+l; 
if sety>8 then sety:-l; 
end; . 

' k',' K'sbegin 

setx:=setx+l; 
if setx>16 then setx:=l; 
end; 

' j','J':begin 

setx:=setx-l; 
if setx<l then setx:=16; 
end 

end; 

d rawb1ock(Cursor,1,0,0,7,8,125+setx*9,190-sety*9,6); 
end; 

if ch in C'f'j'F'D then begin 

quit:=true; 
ed:=false; 
end; 

if eoln then begin 

readln; 
quit:=true; 
ed:=true; 
end; 

until quit; 
if ed then begin 

editone((sety-1)#16+(setx— 1)); 

d rawb1ock(Cursor,1,0,0,7,8,125+setx*9,190-sety*9,6) 
drawblock(charsC(sety-1)#16+(setx-l)D, 

1,0,0,7,8,125+setx*9,190-sety*9,10); 
drawblock(Cursor,!,0,0,7,8,125+setx#9,190-sety*9,6) 
end; 

until ed=false; 

drawblock(cursor,1,0,0,7,8,125+setx#9,190-sety*9,6); 
end; 

procedure writeout_chars; 
var name:string; 
begin 

moveto(0,20); 
wstring(' 
moveto(0,10); 
wstring(' 
moveto(0,0); 
wstring(' 

read_filename(name); 

rewrite(charfile,name); 
charfile~:=chars; 
put(charfile); 
close(charfile,lock); 

end; 

begin 
init; 

readin_chars; 
edit; 

writeout_chars; 
write(chr(12)); 
end. 


■C schreibt Zeichensatz auf Diskette > 

'>5 

'>! 
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4.3 W ± & s cd r~L xclmt. Lo r e s — G r ap ln ± 1c 7 

Apple-Pascal kennt mit der "Turtlegraphics" Unit nur die hochauflö¬ 
sende Graphik mit Q Farben, wie unter Basic. Applesoft kennt aber 
auch die Blockgraphik (Lores-Graphik) mit 16 Farben. Da diese in 
Basic möglich ist, müsste es sie eigentlich auch in Pascal geben. 
Wir wollen uns eine Unit schreiben, mit der wir Zugriff auf die 
Blockgraphik erhalten. 

Um die Informationen zu bekommen, wie die Blockgraphik angesteuert 
wird, brauchen wir das "Apple II Reference Manual", das mit jedem 
Apple ausgeliefert wird. Angaben über die Loresgraphik finden wir 
auf den Seiten 17, 10 und 130. 

Die Loresgraphik wird eingeschaltet, indem die Speicherstellen 
16304 und - 16298 angesprochen werden. Die erste schaltet bei An¬ 
sprache in den Graphikmodus und die zweite schaltet auf Blockgra¬ 
phik. Der Speicherbereich, der angibt, was in der Graphik zu sehen 
ist, liegt parallel zur Bildschirmseite, die bei Spei eherste11e 1024 
beginnt. Anstatt eine Zeichens werden jedoch zwei Punkte angezeigt. 
Ihre Farben hängen von Inhalt der jeweiligen Speicherstelle ab. In 
jedem Byte des Speicherbereiches sind also die Farben für zwei Punk¬ 
te in der Loresgraphik enthalten. Da ein Byte 256 Werte annehmen 
kann, gibt es für jeden Punkt in der Blockgraphik 16 Farben, da ein 
halbes Byte (mit 4 Bits) 2 hoch 4 = 16 Werte annehmen kann. Ein 
halbes Byte wird Nibble genannt. 

In Textmodus können 24 Zeile zu je 40 Zeichen dargestellt werden. Da 
in der Blockgraphik jedes Zeichen zwei übereinander 1iegende Punkte 
ergibt, beträgt die Auflösung 40 # 48 Punkte. Es bleibt nur noch 
offen, welches Nibble in einer Speicherstelle des Bildschirmspei¬ 
chers welchen Punkt beeinflußt. Das erste Nibble (Bits 0-3) gibt die 
Farbe für den oberen Punkt und das zweite (Bits 4-7) die des unteren 
an . 


Textmodus 1 Blockgraphik 


+-+ 

! * ! 

! * * ! 

! # * ! 

! ***** ! 

! # # ! 

! # * ! 
i ; 

+-+ 

1 Zeichen 


!/////! 
!/////' 
!/////! 
!/////! 
!= = = = = i 


!= = = = = ! 
+-+ 

2 Punkte 


!b!b!b!b!b'b!b!b! 


>b!b!b!b!b!b!b!b! 
+-+ 


7 


0 


7 4 3 0 


Ganzes Byte be¬ 
stimmt Zeichen 


Bits 7-4 bestimmen 
Farbe für Punkt A, 
Bits 3-0 für Punkt B 


Bild 4.3.1: Darstellung eines Punktes in der Lores-Graphik 
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Mit den PEEK und POKE Prozeduren aus Kapitel 3.1 sollte es uns nun 
möglich sein, Punkte in der Blockgraphik zu setzen. 

Um den Bildschirmspeicher einfacher ansprechen zu können, wenden wir 
den Trick an, den wir auch schon in Kapitel 2.7 benutzt hatten. Wir 
nehmen ein Feld mit der Größe von 1024 Bytes (dies entspricht der 
Größe des Bildschirms) und legen es über den Bildschirmspeicher. 
Diesen Trick hatten wir schon angewandt, um die Hires-Seite in eine 
Variable zu fassen. Dadurch können wir einzelne Punkte schneller 
durch einen Feldindex ansprechen und brauchen nur noch die POKE- 
Prozedur, um zwischen Graphik- und Textmodus hin und her zu schal¬ 
ten. Unser Feld nennen wir logischerweise ‘'SCREEN’'. 

Bei den Prozeduren halten wir uns einfach an die Basic Befehle, da 
sie alle nötigen Funktionen erfüllen. Neu hinzu kommt nur die Proze¬ 
dur "FILL". 

Nun zu den Befehlen im einzelnen. 

"FILL (COLOR)" färbt die Graphikseite in der Farbe "COLOR" ein. "CO- 
LOR" sollte nur von 0 bis 15 gehen. Die sich ergebenden Farben sind 
beim "PLOT"-Befeh1 angegeben. Wir benutzen hier einfach die Prozedur 
"FILLCHAR", die eine Variable mit einem Wert füllt; hier das Feld 
"SCREEN". 

"GR" schaltet den Blockgraphik-Modus ein. Wir POKEen dazu in die 
oben angegeben Speicherste11en und färben den Bildschirm mit "FILL" 
schwarz. 


"TEXT" schaltet zurück in den Textmodus. Dazu muß die Speicherstelle 
- 16303 angesprochen werden. Damit der Bildschirm nicht mit unsinni¬ 
gen Zeichen gefüllt ist, löschen wir ihn. 

"COLOR(C)" setzt die Farbe, in der die folgenden Plotbefehle ausge¬ 
führt werden sollen. "C" sollte zwischen 0 und 15 liegen, wobei die 
Werte die folgenden Farben ergeben: 


0 : 

schwarz 

1 : 

magenta 

2: 

dunkelblau 

3 : 

rot 

4 : 

dunkelgrün 

5 : 

grau 

6: 

blau 

7 : 

heilblau 

8: 

braun 

9 : 

orange 

10 : 

grau 

11 : 

rosa 

12 : 

grün 

13 : 

gelb 

14 : 

türkis 

15 : 

weiß 


Damit wir uns späteren Rechenaufwand sparen, setzen wir gleich die 
Variablen "COLORN" und "COLORM" auf die Werte, die für den oberen 
und den unteren Punkt in einer Speicherste11e gebraucht werden. 

"PLOT (X,Y)" setzt einen Punkt mit den Koordinaten X und Y in der 
vorher festgelegten Zeichenfarbe. Wir berechnen mit einer kompli¬ 
zierten Formel die Variable "LOC", die den Index für das Feld 
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"SCREEN" ergibt. Diese Formel ist deshalb so lang, da der Bild¬ 
schirmaufbau beim Apple äußerst umständlich ist. Wir schauen noch, 
um welchen Punkt es sich handelt und setzen das entsprechende 
Nibble. 


"HLIN (X1,X2,Y)" zeichnet eine waagerechte Linie von XI bis X2 auf 
der Höhe Y. Es handelt sich um eine einfache Schleife mit dem 
"PLOT"-Befehl. 


"VLIN (Y1,Y2,X)" zeichnet eine senkrechte Linie von Y1 bis Y2 in der 
Spalte X. Es handelt sich hier wiederum um eine simple Schleife. 


"SCRN (X,Y)" ist eine Funktion, die angibt, welche Farbe der Punkt 
mit den Koordinaten X und Y hat. Das Ergebnis ist eine Zahl zwischen 
0 und 15. 


Es ist zu beachten, daß nicht geprüft wird, ob die angegeben Koordi¬ 
naten für die Prozeduren innerhalb des Bildschirms liegen. X Koordi¬ 
naten dürfen nur von 0 bis 39 und Y-Koordnaten nur von 0 bis 47 
gehen. 

Nun zum Aufbau der Unit. Auf die im "INTERFACE"-Tei1 angebenen Typen 
und Prozeduren kann man von "außen" zugreifen. Dem Programm, das die 
Unit benutzt, stehen also die Blockgraphik-Prozeduren und der Typ 
"BYTE" zur Verfügung. Alles, was im "IMPLEMENTATION"-Tei1, steht ist 
intern und kann nicht direkt angesprochen werden. So z.B die Proze¬ 
dur POKE. Der Teil am Ende der Unit zwischen "BEGIN" und "END." ist 
der Initialisierungsteil. Er wird beim Programmstart automatisch 
ausgeführt und legt das "SCREEN"-Feld über den Bildschirmspeicher. 

Wichtige Typen und Variablen 


"SPCHRINHALT","SPCHRSTELLE" : Aus Kapitel 3.1 von 

PEEK/POKE übernommen 


"SCREENARRAY" : 1024 Bytes großes Feld. Die Größe 

entspricht der des Bildschirmspeichers 

"SCREENTYP" : Mittels des Zeigers "AD" kann eine Variable 
von diesem Typ über einen 

bestimmten Speicherbereich gelegt werden. 

"COLORN","COLORM" : enthalten den Wert, den nötig ist, 

um den oberen oder den unteren Punkt 
in einer Bildschirmzelle in der 
gewünschten Farbe zu setzen. 

"SCREEN" : Variable vom Typ "SCREENTYP". Wird über den 
Bildschirmspeicher gelegt. 
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Pr og ramm " LORES _ LIB" 

(#SS+*) (# SWAPPING OPTION FUER UNITS #) 

UNIT LORES; 


INTERFACE (# ALLE IDENTIFIER, AUF DIE VOM 
HOST-PROGRAMM BENUTZT WERDEN 
KOENNEN *) 


TYPE 

BYTE = 0..255; 

PROCEDURE FILL (COLOR:BYTE); 
PROCEDURE GR; 

PROCEDURE TEXT; 

PROCEDURE COLOR (C:BYTE); 
PROCEDURE PLOT (X,Y:BYTE); 
PROCEDURE HL IN (XI,X2,Y:BYTE); 
PROCEDURE VLIN (Y1,Y2,X:BYTE); 
FUNCTION SCRN (X,Y:BYTE):BYTE; 


IMPLEMENTATION (# ALLE IDENTIFIER UND DER TEXT 
DER UNIT. DIESER TEIL IST 
"PRIVAT". D.H. ER KANN NICHT 
VOM HOST-PROGRAMM AUFGERUFEN 
WERDEN #) 


TYPE 

SPCHRINHALT = PACKED ARRAYCO. .0] OF BYTE; 
SPCHRSTELLE = RECORD CASE BOOLEAN OF 

TRUE: (ADRESSE:INTEGER); 

FALSE: ( INHALT : ''SPCHRINHALT) ; 
END; 

SCREENARRAY = PACKED ARRAYC0..1023] OF BYTE; 
SCREENTYP = RECORD CASE BOOLEAN OF 
TRUE: (AD:INTEGER); 

FALSE:(INH:^SCREENARRAY) ; 

END; 


VAR 

COLORN,COLORM:BYTE; 
SCREEN:SCREENTYP; 


PROCEDURE POKE(A:INTEGER; B:BYTE); ( aus Kapitel 3.1 

VAR X:SPCHRSTELLE; 

BEGIN 

X.ADRESSE:=A; 

X. INHALT"'C 0 D : S B; 

END; 


PROCEDURE FILL; ( fuellt Schirm in der Zeichenfarbe 
BEGIN 

F ILLCHAR( SCREEN. INH"', 10 23 , (COLOR MOD 16)*17); 

END; 

PROCEDURE GR; ( schaltet in den Grafikmodus ) 
BEGIN 

POKE(-16304,0); (* GRAPHICS *) 


uebernommen ) 
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POKEC-16298,0); (# LORES *) 
FILL(0)j 
END; 


PROCEDURE TEXT; ( schaltet in den Textmodus ) 
BEGIN 

POKE(-16303,0); <# TEXT #) 

WRITE(CHR(12)); 

END; 


PROCEDURE COLOR; ( setzt Zeichenfarbe ) 
BEGIN 

COLORN:=C MOD 16; 

COLORM:=C # 16; 

END; 


PROCEDURE PLOT; ( setzt eine Punkt in der Zeichenfarbe ) 

VAR LOC,Y1,B:INTEGER; 

BEGIN 

Y1;= Y DIV 2; 

LOC := (Y1 DIV 6) * 40 + (Y1 - 8 # <Y1 DIV 8)) * 128 + X; 
B : =SCREEN . INI-TCLOCD ; 

CASE ODD(Y) OF 

FALSE : B := (BDIV 16) * 16 + COLORN; 

TRUE : B := (B MOD 16) + COLORM 
END; 

SCREEN.INH~CLOC]:=B; 

END; 


PROCEDURE HLIN; ( zieht eine waagerechte Linie in der Zeichenfarbe } 
VAR X:INTEGER; 

BEGIN 

IF XI <= X2 THEN 

FOR X := XI TO X2 DO 
PLOT(X,Y) 

ELSE 

FOR X := XI DOWNTO X2 DO 
PLOT(X,Y); 

END; 

PROCEDURE VLIN; { zieht eine senkrechte Linie in der Zeichenfarbe ) 
VAR Y:INTEGER; 

BEGIN 

IF Y1 <= Y2 THEN 

FOR Y := Y1 TO Y2 DO 
PLOT(X.Y) 

ELSE 

FOR Y := Y1 DOWNTO Y2 DO 
PLOTCX,Y); 

END; 

FUNCTION SCRN; ( ergibt Farbe eines Punktes ) 

VAR LOC,Y1,B:INTEGER; 

BEGIN 

Y1:= Y DIV 2; 

LOC := (Y1 DIV 8) * 40 + <Y1 - 8 # (Y1 DIV 8)) * 128 + X; 

B:=SCREEN. INH-C LOC]; 

CASE ODD(Y) OF 

FALSE : SCRN := B MOD 16; 

TRUE : SCRN := B DIV 16 
END; 
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END; 

<# INITIALISATION #) 

BEGIN 

SCREEN.AD: = 1 0 2 4 ; <* BEGINN DES BILDSCHIRMSPEICHERS *) 
END. 


Die Unit soll in dieser Form nicht in die "SYSTEM.LIBRARY" eingebun¬ 
den werden. Jedes Programm, das sie benutzt, muß zu Beginn dem Com¬ 
piler mitteilen, daß die Unit aus einem anderen File stammt. Dies 
geschieht mit der "(#$U Filename#)" Option. Darauf folgt die Angabe 
"USES LORES;". 

Nach dem Compileren muß die Unit noch in das Codefile mit dem Linker 
eingebunden werden. Nach dem Aufruf des Linkers mit "L" von der, 
Hauptkommandozeile ergibt sich der folgende Dialog: 


LINKING... 

APPLE PASCAL LINKER CI.13 
HOST FILE? <ret> 

OPENING SYSTEM.WRK.CODE 
LIB FILE? LORES.LIB 
OPENING LORES.LIB.CODE 
LIB FILE? <ret> 

MAP FILE? <ret> 

READING LORESDEM 
READING LORES 
OUTPUT FILE? <ret> 

LINKING LORES tf 7 
LINKING LORESDEM W 1 

Bild 4.3.2: Der Dialog beim Linkerlauf 


Der Linker muß hier .übrigens einzeln aufgerufen werden. Falls er 
über das "R" (Run) Kommando nach dem Compilieren gestartet wird, ist 
es nicht möglich, die Unit einzubinden. Dies liegt daran, daß der 
Linker dann annimmt, daß die Unit in der "SYSTEM.LIBRARY" steht, wo 
er sie natürlich dann nicht findet. 

Um die Anwendung zu demonstrieren ist hier noch ein kurzes Beispiel¬ 
programm abgedruckt, das einige Blockgraphik- Prozeduren benutzt. Es 
läßt einen kleinen Ball auf dem Bildschirm hin und herfliegen. Im 
Aufbau entspricht es dem Basic-Beispielprogramm auf Seite 10 des 
"Applesoft Basic Programming Reference Manual". 


Programm "LORES.DMO" 

PROGRAM LORESDEMO; 

<#$U LORES.LIB.CODE #) (# NAME DES UNIT-FILES #) 

USES LORES; (# LIBRARY LORES WIRD BENUTZT #) 

VAR 

I,X,Y,NX,NY,XV,YV:INTEGER; 


BEGIN 
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GR; 

COLORC10); 
HLIN(0,39,0); 
VLINC 0,47,39) ; 
HLINC39,0,47); 
VLIN(47,0,0); 

I : =0 ; 

X:-1; Y:=5 ; 

XV:= 2; YV:=1; 


REPEAT 




NX 

:=X+XV; 



NY: 

:=Y+YV; 



IF 

NX 

> 30 

THEN BEGIN 





NX: = 

38; XV 




END; 


IF 

NX 

< 1 

THEN BEGIN 





NX: =1 

X 

< 

ii 




END; 


IF 

NY 

> 46 

THEN BEGIN 





NY : = 

46; YV 




END; 


IF 

NY 

< 1 

THEN BEGIN 





NY : = 1 

; YV: =■ 




END; 


COLOR 

(13) 

; 



PLOT (NX,NY); 
COLOR (0); 
PLOT (X,Y); 

X:=NX; Y:=NY; 
I : = I +1 ; 

UNTIL I > 1000; 
READLN; 

TEXT; 

END. 


4.. ‘4L Shape s ± ra d ö r~ Loi-ös —G r apln i 1< 

In diesem Kapitel soll noch eine kurze Erweiterung der Blockgraphik- 
Möglichkeiten besprochen werden. Es handelt sich um die Darstellung 
von Shapes auf dem Bildschirm. Größere Objekte brauchen damit nicht 
mehr Punkt für Punkt in die Graphik gezeichnet werden. Sie entpricht 
der "DRAWBLOCK" Prozedur aus der "Turtlegraphics" Unit. 

Dazu ist es nötig, das zu zeichnende Objekt in ein Feld zu fassen. 
Die Größe des Feldes wird durch die Höhe und die Breite der Figur 
bestimmt. Da es in Pascal nicht möglich ist, Felder mit variabler 
Größe an eine Prozedur zu übergeben, muß die Prozedur auf eine be¬ 
stimmte Größe festgelegt werden. 


Jedes Element 
bestimmt seine 
annehmen kann, 


in dem Feld gibt einen Punkt wieder. Der Feldindex 
Position auf dem Bildschirm. Da ein Punkt 16 Farben 
hat jedes Feldelement den Wertebereich 0 bis 15. 


Ein Prozedur, die das Objekt auf den Bildschirm bringt ist einfach. 
Das o.g. Feld wird Zeile für Zeile durchgegangen und die Punkte in 
der entsprechenden Farbe mit dem '’PLOT"-Befehl ausgegeben. Dieser 
Vorgang ist leider nicht schnell genug, um Figuren in einer annehm¬ 
baren Zeit zu bewegen. Sie vereinfachen aber die Ausgabe von farbi¬ 
gen Symbolen auf dem Bildschirm ungemein. 
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Das hier abgedruckte Programm bringt einen farbigen Ball fünfzigmal 
an zufälligen Positionen auf den Bildschirm und untermalt das Ganze 
mit Tönen. 

Damit das Programm läuft, ist wieder ein Lauf des Linkers nötig. Es 
ergibt sich dabei der folgende Dialog: 


LINKING... 


APPLE PASCAL LINKER [1.1] 

HOST FILE? <ret> 

OPENING SYSTEM.WRK.CODE 
LIB FILE? LORES.LIB 
OPENING LORES.LIB.CODE 
LIB FILE? <ret> 

MAP FILE? <ret> 

READING LORESSHA 
READING LORES 
OUTPUT FILE? <ret> 

LINKING LORES # 7. 

LINKING LORESSHA tt 1 

Bild 4.4.1: Der Dialog beim Linkerlauf 


Ansonsten gilt auch hier das in Kapitel 4.3 zum Linkerlauf Gesagte. 

Wichtige Typen, Variablen und Prozeduren 

"SHAPEHOEHE" : Konstante, die die Höhe des Shapes 
angibt. 

"SHAPEBREITE" : Konstante, die die Breite des Shapes 
angibt. Soll mit einer anderen 
Shapegröße gearbeitet werden, so müssen 
nur diese zwei Konstanten geändert werden. 

"SHAPETYP" : Feld, das die Definition des Objekts 
enthalten soll. 

"SHAPE" : Variable vom Typ "SHAPETYP". Enthält das 
Aussehen des Balls. 

"DRAWSHAPE (X,Y:INTEGER)" : Prozedur, die das Feld 

"SHAPE" plottet. X und Y 
geben die Koordinaten der 
linken oberen Ecke der Figur an. 
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Pr og r aimm " LORES , SHE3P ” 

{*S+> 

-C$R-> { Rangechecking ausschalten, um Programm schneller zu machen > 
program lores_shapes; 

uses applestuff, <$U LORES.LIB.CODE} lores; -C Unit benuzten > 

const shapehoehe = 5; 
shapebreite = 5; 

type shapetyp = array CI..shapehoehe,1..shapebreiteD of 0..15; 

var shape: shapetyp; 
i,x,y: integer; 

procedure initshape; < definiert Aussehen des Shapes > 
var i:integer; 
begin 

shapeCl,1□:=□; shapeCl,23:=0; 
shapeC2,13:=0; shapeC2,23:=4; 
for i:= 1 to 5 do 
shapeC3,i3:=6; 

shapeC4,13:=0; shapeC4,23:=1; 
shapeC5,13:=0; shapeC5,23:=0; 
end; 

procedure drawshape (x,y:integer); { zeichnet Shape > 
var i,j:integer; 
begin 

for is — 1 to shapehoehe do 
for j:= 1 to shapebreite do 
begin 

color(shapeCi,j3); 
plot(x+j—1 ,y+i-l); 
end; 

end; 

begin 

randomize; 
initshape; 
gr; 
i:=0; 
repeat 

x:=random mod 36; 
y:=random mod 44; 
drawshape(x,y); 
noteCrandom mod 51,10); 
i:=i+l; 
until i>50; 
read ln; 
text; 
end. 


shapeCl,33:=3; 
shapeC2,33:=4; 


shapeC4,33:=1; 
shapeC5,33:=8; 


shapeCl,43:=0 
shapeC2,43:=4 


shapeC4,43:=l 
shapeC5,43:=0 


shapeCl,53:=0 
shapeC2,53:=0 


shapeC4,53:=0 
shapeC5,53:=D 
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<L . E> Editor-Marken r and e r'm 

und 1 ö s chen 

Man kann mit dem Pascal-Editor Marken ("markers") setzen und ihnen 
einen Namen geben. Sie können dann als Sprungziele innerhalb eines 
Textes benutzt werden. Man setzt sie mit "S M". Was ist aber, wenn 
man eine Marke nicht mehr braucht, oder sich verschrieben hat ? Nach 
dem Drücken von <ret> bei der Markeneingabe versagt der Editor. Man 
kann Marken nur dann löschen oder ändern, wenn man schon zehn Marken 
gesetzt hat, und Platz für eine neue machen muß. 

Aus Kapitel 2.0 wissen wir, daß alle Informationen, die der Editor 
braucht (also auch die Namen und Positionen der Marken) in den er¬ 
sten zwei Blöcken eines jeden Textfiles abgespeichert werden. Mit 
diesem Wissen ist es einfach, ein Programm zu schreiben, das diese 
Informationen liest, anzeigt und verändern kann. Unser Utility wird 
dann nach dem Verlassen des Editors aufgerufen und arbeitet mit ei¬ 
nem Textfile. 


Man hat einige Punkte beim Verändern der Marken zu beachten. Zu¬ 
nächst müssen die Marken aufeinander folgen. Es kann also nicht z.B. 
die erste und zweite Marke benutzt und die dritte unbenutzt sein, 
wenn noch die vierte benutzt wird. Eine unbenutzte Marke wird ge¬ 
kennzeichnet, indem das erste Zeichen ein CHR(O) ist. 


Nun also zum Programm selbst. Zuerst wird mittels der Struktur aus 
Kapitel 2.8 die gewünschten Informationen für ein Textfile eingele¬ 
sen. Werte wie rechter, linker Rand etc. werden am Bildschirm ange¬ 
zeigt, wobei das Layout dem des Editors entspricht. Dann folgen die 
zehn Marken. Unbenutzte Marken werden durch "UNUSED" gekennzeichnet. 

Der Benutzer hat nun die Möglichkeit, eine Marke zu verändern. Durch 
Auswahl über die Ziffern 0 bis 9 kann er einen neuen Namen für die 
Marke eingeben, der maximal 8 Zeichen lang sein kann und durch <ret> 
abgeschlossen wird. Gibt er nur <ret> ein, so wird die Marke ge¬ 
löscht. Alle nachfolgenden Marken werden aufgrund der obigen Überle¬ 
gungen um einen Platz nach vorne geschoben. Gibt er <esc> <ret> ein, 
so bleibt alles beim alten. Logischerweise wird das Verändern von 
unbenutzten Marken verweigert. 

Mit "Q" wird das Programm verlassen. Der erste Block des Textfiles 
wird mit den neuen Editor-Informationen übersehrieben, und wir kön¬ 
nen den Text nun mit den veränderten Marken editieren. 

Achtung: Falls der Leser nicht mit dem normalen Pascal-Editor arbei¬ 
ten sollte, kann es sein, das sein Editor die ersten zwei Blöcke 
eines Textfiles für andere Informationen benutzt. "MARKERCHANGE" ar¬ 
beitet dann wahrscheinlich nicht korrekt. 


Wichtige Variablen 


"TEXTINFO" 


Strukturierter Record zur Aufnahme der 

Informationen am Beginn eines Textfiles 


Wichtige Prozeduren 


"LESEINFO" : Fragt nach dem Namen des Textfiles und liest 

mittels der Prozedur "BLOCKREAD" die 
Variable "TEXTINFO" ein. Bei einem Fehler 
wird "LESEINFO" wiederholt. 
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"GEBEAUS" : Gibt die Variable "TEXTINFO" aus. Das 

Schirmlayout entspricht dem des Editors. 

Im Anschluß folgen die 10 Marken. 

"VERAENDERE" : Liest Benutzerkommandos ein und führt sie 

aus, bis ein "Q" zum Beenden eingegeben wird. 
"SCHREIBEINFO" : Schreibt textinfo in den ersten Block des 
Textfiles zurück. 

Kommandos: 


0 - "9" : Marke auswählen 

dann <esc> <ret> : Alles beim alten lassen 
<ret> : Marke löschen 

Texteingabe : Neuer Name der Marke 
"Q" : Beenden des Programms (Quit) 


Pr og r amm " Ivl ARKERS - TEIXIT " 


program markerchange; 


type datum = packed record 


monat : 

: 0. 

.12 

tag i 

: 0. 

.31 

jahr 

: 0.’ 

.99 


end; 


var textinfo: 


txtfile : 
home : 
esc : 
filename: 


packed record 
unusedl 
markername 
unused2 
markeradresse 
autoindent 
filling 
tokendef 
leftmargin 
rightmargin 
paramargin 
commandch 
datecreated 
lastused 
unusedS 
end; 
f ile; 
char; 

stringClU; 
string; 


packed arrayCO..30 of char; 

packed arrayCO..9,0..73 of char; 

packed arrayCO..9D of char; 

packed arrayCO..9D of integer; 

integer; 

integer; 

integer; 

integer; 

integer; 

integer; 

char; 

datum; 

datum; 

packed arrayCO. .3791] of char; 


procedure leseinfo; -C liest Textinformationen ein > 
var ok: boolean; 

dummy: integer; 
begin 

write(home); 

writelnC 7 MARKERCHANGE'); 
writelnC'-'); 

writelnC 7 Veraendern und loeschen von Markern 7 ); 

writelnC 7 in Editor-Texten. 7 ); 

writeln; 

repeat 

write( 7 Filename (ohne .TEXT) : 7 ); 
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read 1n(fi1ename); 

filename:=concatCfilename,'.TEXT'); 
ok:=true; 

{$I-> 

resetCtxtfile,filename); 

{$I+> 

if ioresultOO then begin 

writelnC'Kann "',filename,'' ' nicht.oeffnen'); 
writelnC'Bitte nochmals .'); 
ok:=false; 
end; 

until ok; 

dummy:=b1ockreadCtxtfile,textinfo,1,0); 
close(txtfile); 
end; 

procedure gebeaus; < gibt Textinformationen aus > 

var i:integer; 

begin 

write(home); 
with textinfo do 
begin 

write('Auto indent 

if autoindent>0 then writelnC'True') 

eise writelnC'False'); 

write('Filling 

if filling >0 then writelnC'True') 

eise writelnC'False'); 
writeln('Left margin ' , leftmargin); 
writelnC'Right margin ' ,rightmargin); 
writelnC'Para margin ',paramargin); 
writelnC'Command ch ',commandch); 
writeC'Token def '); 
if tokendef >0 then writelnC'True') 

eise writelnC'False'); 

writeln; 

with datecreated do 

writelnC'Date Created ',monat,'-',tag,,jahr); 
with lastused do 

writelnC'Last Used ',monat,tag,jahr); 
writeln; 

for i:=0 to 9 do 
begin 

writeC'Marker No. ',i,' : '); 

if markernameCi,0D = chrCO) then writelnC' Unused') 

eise writelnC' >' »markernameCill,' <'); 

end; 

end; 

end; 

procedure veraendere; i laesst der Benutzer Marker aendern oder loeschen > 
var ch:char; 

i,no:integer; 
newname:string; 
begin 
repeat 

gotoxyCO,22); 

writeC'<0..9> Marker aendern <Q> Beenden ',chrC8)); 
read Cch); 

if ch in C'0'..'9'D then 
with textinfo do 
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begin 

no:=ord(ch)-48; 

if markernameCno,03=chr(0) then 
begin 

gotoxy(0,22); 

write( 7 Marker ist unbenutzt. Bitte Taste. 7 ,chr(8)); 
read(ch); 
end 
eise 
begin 

gotoxy(0,22); 

write('<esc><ret> zurueck <ret> loeschen 7 ); 
gotoxy(16,11+no); 
write( 7 7 ); 

gotoxy(16,11+no); 
read ln(newname); 
if newname= 77 
then begin 

for i:=no to 8 do 
begin 

markernameCi3:=markernameCi+l 3; 
gotoxy(15,11+i); 
if markernameCi,03 = chr(O) 
then writeln( 7 Unused 7 ) 
eise writeln( 7 >' ,markernameCi3, '<'); 

end; 

markernameC9,03 := chr(0); 
gotoxy(15,20); 
writeln( / Unused 7 ) 
end 

eise ’if newname<>esc 
then begin 

newname:=concat(newname, 7 7 ) ; 

for i:= 0 to 7 do 

markernameCno,i3:=newnameCi+l3; 

end; 

gotoxy(15,11+no); 
if markernameCno,03 = chr(O) 
then writeln( 7 Unused 7 ) 
eise writeln(' >' ,markernameCno3, 7 <'); 

end; 

end; 

until ch in C / Q / , / q / 3; 
write(chr(8), 7 Quit 7 ); 
end; 

procedure schreibeinfo; < schreibt Textinformationen zurueck auf die Diskette > 

var dummysinteger; 

begin 

reset(txtfile,filename); 
dummy:=blockwrite(txtfile,textinfo,l,0); 
close(txtfile,lock); 
end; 

begin 

esc:= 7 # ; 
escC13:=chr(27); 
home:=chr(12); 
leseinfo; 
gebeaus; 
veraendern; 
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schreibeinfo; 
end. 


-4L . 6 W groß ist- me i n Töx t_ ? 

Neben dem Inhalt und dem Aussehen eines Textes ist noch seine Größe 
ein entscheidendes Merkmal. Wer einen Artikel, ein Buch oder sonst 
ein Schriftstück erstellt, der benötigt diese Information, um abzu¬ 
schätzen, ob er Anforderungen an den Umfang seines Textes erfüllt 
hat, oder z.B., wieviele Seiten der Text auf dem Drucker ergeben 
wird. Bei vielen Texteditoren gibt es die Möglichkeit, sich diese 
Werte ausgeben zu lassen; beim Pascal-Editor nicht. Man kann nur 
feststellen, wieviel Speicherplatz der Text benötigt und wieviel 
Diskettenplatz. 

Die besten Informationen über die Größe eines Textes bieten wohl die 
Angaben, wieviele Zeichen, Wörter und Zeilen der Text enthält. Aus 
der Zeilenzahl läßt sich dann noch errechnen, wieviele Seiten der 
Text ergibt. Das folgende Programm errechnet diese Werte und gibt 
sie aus. 

Die Realisation ist relativ einfach. Wir benötigen zunächst den Na¬ 
men des Textfiles, das bearbeitet werden soll. Dann müssen wir 
wissen, was gezählt werden soll. Falls man nur die Zeilenzahl wissen 
will ist es nicht nötig, die Wörter zu zählen, wobei dies ja auch 
den Programmablauf verlängern würde. Schließlich wird noch ein Wert 
benötigt, der angibt, wieviele Zeilen auf eine Druckseite kommen, um 
die Seitenanzahl durch Division zu berechnen. 

Das Programm öffnet nun das Textfile und liest den Text Zeile für 
Zeile. Daraus ergibt sich automatisch die Anzahl der Zeilen, da ja 
nur bei jedem Lesevorgang ein Zähler um 1 erhöht werden braucht. 

Auch das Zählen der Zeichenanzahl ist einfach. Sie ergibt sich aus 
den Summe der Länge der Zeilen. Hierbei werden natürlich Leerstellen 
mitgezählt, was allerdings unerheblich ist. Falls die Wörter gezählt 
werden, ist es möglich, auch noch diesen kleinen Fehler zu beheben. 
Wenn man pro Wort einen Leerraum rechnet, so kommt man der wirklich¬ 
en Zeichenzahl ohne Leerstellen durch die Berechnung "Zeichenzahl 
minus Anzahl der Wörter" ziemlich nahe. Unser Programm führt diese 
Berechnung automatisch durch, falls Zeichen und Wörter gezählt wer¬ 
den . 

Am "aufwendigsten" ist das Zählen der Wörter. Ein Wort wird defi¬ 
niert als eine Zeichenfolge, die von Leerstellen begrenzt ist. Das 
Programm nimmt also die gerade eingelesene Zeile, und sucht das 
erste Zeichen, das keine Leerstelle ist. Mit diesem Zeichen beginnt 
ein Wort, und wir können den Wortzähler um 1 erhöhen. Dann wird das 
nächste Leerzeichen gesucht, das ja ein Wort beendet. Da auch mehr¬ 
ere Leerstellen zwischen Wörtern stehen können, beginnt nun wieder 
die Suche nach einem Zeichen, das keine Leerstelle ist. Dies wieder¬ 
holt sich bis zum Ende der Zeile. 

Diese Methode ist zwar sehr einfach, sie wird aber nicht immer die 
korrekte Anzahl der Wörter ergeben. Wenn nämlich ein Wort an Ende 
einer Zeile getrennt wurde, so wird es zweimal gezählt. Einmal am 
Ende der einen Zeile und einmal am Anfang der nächsten. Da aber die¬ 
ser Fehler nur eine geringe Abweichung ergibt, und nie die genaue 
Wörteranzahl gebraucht wird, können wir ihn in Kauf nehmen und brau¬ 
chen das Programm nicht unnötig zu vergrößern und zu verlangsamen. 
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Falls die Seitenanzahl benötigt wurde, so wird sie aus den mitge¬ 
zählten Zeilen mittels der oben genannte Division ermittelt und aus¬ 
gegeben. * 

Schließlich bauen wir in das Programm noch eine optische Kontrolle 
ein, damit erkennbar ist, daß daß Programm am Arbeiten ist. Jedes¬ 
mal, wenn eine Zeile eingelesen wird, wird auf dem Bildschirm ein 
Stern ("#") ausgegeben. Sind fünf Zeilen eingelesen, so werden die 
Sterne gelöscht, und der Vorgang beginnt neu. Damit ergibt sich ein 
"Pulsieren" der Anzeige. 

Es ergibt sich das folgende Listing, wobei die Prozeduren 
"FRESET","FREADLN" und "FCLOSE" aus Kapitel 2.9 übernommen wurde. 
Ohne sie benötigt das Programm weit mehr Zeit; der Leser kann es 
ausprobieren, indem er die Standardprozeduren verwendet. 


Wir hatten aber schon 
kten Prozeduren nur 
werden können. Sie 
nicht erkannt wurde. 
Größe natürlich nicht 
etwas erweitern. 


in Kapitel 2.9 bemerkt, daß die dor 
auf einen Text mit bekannter Länge 
hatten den Nachteil, daß das Ende 
Beim Zählen eines beliebigen Textes 
vorher bekannt, um wir müssen die 


t 

d 


abgedruk- 
angewand t 
es Textes 
ist seine 
Prozeduren 


Wir führen zwei neue Werte ein, die mit einem Textfile Zusammenhäng¬ 
en. Es handelt sich um die Anzahl der Blöcke, die das File auf der 
Diskette belegt, und die Anzahl der gültigen Zeichen im letzten 
Block. Wie wir diese Informationen erhalten wird weiter unten be¬ 
schrieben . 

Mit diesen zwei Werten führen wir Änderungen an "FREADLN" durch. Wir 
wollen erreichen, daß das Ende eines Textes erkannt wird. Damit nach 
dem Aufruf der Prozedur bekannt ist, ob schon das Ende erreicht ist, 
wird an "FREADLN" die Boo1ean-Variab1e "EF" übergeben. Sie hat die 
gleiche Funktion wie die "EOF"-Variab1e im Zusammenhang mit dem 
Standard-"READLN". Wenn bereits alle Textzeilen eingelesen sind, 
wird sie auf "TRUE" gesetzt. Hier ist zu bemerken, daß der dann ge¬ 
lesene String ungültig ist. 

Das Ende des Textes wird auf zwei Arten erkannt. Zunächst, wenn ein 
neuer Block in den Puffer "SEITE" geladen werden soll. Durch Ver¬ 
gleichen mit dem Wert, der angibt, wieviele Blöcke das File groß 
ist, wird festgeste 111, ob schon der letzte Block eingelesen war. In 
diesem Fall ist das Ende des Files erreicht. 

Ist der Block, der sich in "SEITE" befindet der letzte Block im 
File, so wird geprüft, ob der Seitenzeiger schon über das Ende des 
Textes hinauszeigt. Dies ist der Fall, wenn er größer ist als, der 
Wert, der angibt, wieviele Bytes im letzten Block gültige Textzei¬ 
chen s ind . 


Der Text wird also zeilenweise mit "FREADLN" eingelesen, solange bis 
"EF" "TRUE" wird. Dann ist das Programm fertig und kann die Ergeb¬ 
nisse ausgeben. 

Nun muß noch beschrieben werden, wie wir die Wert für die Anzahl der 
Blöcke und der gültigen Zeichen im letzten Block erhalten. Dazu ist 
das Wissen aus Kapitel 2.2 über das Directory nötig. 


Für jedes File sind im 
benötigen. Die Anzahl 
zwischen der Nummer des 
zweite Wert steht direkt 


Directory die zwei Werte 
der Blöcke ergibt sich 
Anfangs- und des Schlußbl 
im Directory. 


vermerkt 
aus der 
ocks des 


die wir 
Diff erenz 
Files. Der 
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Wir brauchen also nur das entsprechende Directory einiesen, und die 
zwei Werte setzten. Wir wissen allerdings nicht, von welchem Lauf¬ 
werk wir das Directory lesen müssen. Dies hängt direkt von dem File¬ 
namen ab, den der Benutzer eingibt. 

Es bleibt uns nichts anderes übrig, als die Diskette zu suchen. Wir 
berücksichtigen dabei die Laufwerke 4 und 5. 

Zunächst wird der eingegebene Filename untersucht. Ist sein erstes 
Zeichen ein "#", so muß darauf eine Unit-Nummer folgen. Ist diese 4 
oder 5, so haben wir das gesuchte Laufwerk schon gefunden. Kommt 
eine nicht erlaubte Unit-Nummer vor, so wird das Programm mit einer 
Fehlermeldung abgebrochen. 

Weiterhin kann es sein, daß ein Volumename angegeben worden ist. Wir 
lesen nun die Directorys aus beiden Laufwerken ein ( zunächst von 
Unit 4, dann eventuell von Unit 5), und vergleichen den darin vor¬ 
kommenden Volume-Namen mit dem eingegebenen. Stimmen sie überein, so 
haben wir das Laufwerk gefunden. Wird der angegebene Volume-Name 
nicht gefunden, so bricht das Programm wieder mit einer Fehlermel¬ 
dung ab . 

Es gibt noch den Fall, daß gar kein Volume-Name angegeben worden 
ist. Nun wird vor den eingebenen Filename der Volume-Name der 
Prefix-Diskette gesetzt. Wir erhalten ihn über eine an "PEEK"/"POKE" 
angelehte Vorgehensweise, die in Kapitel 3.3 näher erläutert ist. 
Daraufhin gehen wir wie oben vor. 

Wir wissen zu diesem Zeitpunkt, in welchem Laufwerk (- auf welcher 
Unit) sich der zu zählende Text befinden müßte. Ob er dort auch 
wirklich ist, prüfen wir nach, indem wir das Directory nach dem 
Filenamen durchsuchen.- Finden wir den Text, so können wir die zwei 
für "FREADLN" benötigten Werte setzen, andernfalls wird das Programm 
mit einer Fehlermeldung verlassen. 

Wir unschwer zu erkennen ist, ist dies ein recht komplexer Aufwand. 
Bei der Verwendung der Standard-Prozedur "READLN" wird er vom Be¬ 
triebssystem übernommen. Da wir hier nicht direkt eingreifen können, 
müssen wir diesen Teil neu schreiben. Im Grunde genommen ist er auch 
noch nicht vollständig korrekt. So fehlt z.B. die Erkennung des 
"Root"-Volumes ("#") und eine Behandlung aller möglichen Fehleinga¬ 
ben. Dieser Aufwand ist aber durch den enormen Geschwindigkeitsvor¬ 
teil von “FREADLN" sich gerechtfertigt. 


Progr OLmm *' COUN I T - TEXT '* 

program countit; 
type 

vname=stringC73; i Ein Volumename > 
fname=stringC15I]; { Ein Filename > 
daterec = packed record i das Datum > 
month: 0..12; 
day: 0..31; 

year: 0..100; 
end; 

fkind = (voljbadjcode^text^nfojdatajgraf,foto,secr); { moegliche Filetypen > 
direntry = record -C ein Eintrag im Directory > 

firstblock: integer; -C Block, bei dem das File anfaengt > 
lastblock: integer; < Block, bei dem das File endet > 
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case filekind: fkind of 

■C nur beim Eintrag #G > 

vol,secr: (diskvol: vname; -C Name der Diskette > 
blockno: integer; < Anzahl der Bioecke > 
fileno:integer; { Anzahl der Files > 
accesstime: integer; < unbenutzt > 
lastboot: daterec); -C Datum, an dem die > 
{ zuletzt benutzt wurde > 

{ Normale File-Eintraege > 
bad,code,text, 
info,data,graf, 

foto: (filename: fname; { Filename > 

endbytes: 1..512; i Bytes im letzten Block > 
lastaccess: daterec); { Datu, an dem das File > 
end; { geschrieben wurde > 

direc = arrayCO..77D of direntry; < Directory mit 78 Eintraegen > 

var 

■C Variablen, die von "FRESET","FREADLN" und "FCLOSE" benutzt werden > 
f:fIle; 

seite:packed arrayCO. .10231] of char; 
buf ferpointer:integer; 
blockpointer:integer; 

leer:stringC120U; 

< Variablen, zum Festlegen des Fileendes > 
blockno,lastbytes:integer; 
filename:string; 

{ Variablen zum Zaehlen > 

zeilen,Zeichen,woerter,seiten:boolean; 
zeilenno,zeichenno,wortno:integer; 

Seitenzeilen:integer; 

procedure inputoptions; { Eingeben, was gezaehlt werden soll > 
var ch:char; 


begin 

writelnC'-'); 

writelnC 7 COUNT'); 

writelnC 7 -'); 

writeln; 


writeC ' Zeilen zaehlen >'); 
read <ch); 

if ch in C'N'/n'U then zeilen:=false 
eise zeilen:=true; 

writeln; 

writeln; 

writeC # Zeichen zaehlen >'); 
read(ch); 

if ch in C'N'j'n 7 ]] then zeichen:=false 
eise zeichen:=true; 

writeln; 

writeln; 

writeC 7 Woerter zaehlen > 7 ); 
read(ch); 

if ch in C 7 N 7 , 7 n 7 D then woerter:=false 
eise woerter:=true; 

writeln; 

writeln; 

writeC 7 Seiten errechnen > 7 ); 
readCch); 
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if ch in C'N'/n'D then seiten:=false 
eise seiten:=true; 

writeln; 
writeln; 
if seiten then 
begin 

writeC'Zeilen pro Seite >'); 
readln(seitenzeilen); 
end ; 

writeln; 

end; 

procedure inputname; {. Filenamen eingeben > 
var prefix: record case boolean of 

true: (adresse:integer); 
false: (name: "vname) 
end; 

i:integer; 

begin 

write (' Welcher Text >'); 
read 1n(fi1ename); 

if (pos(' :' ,f ilename)=G) and (f ilenameCITO'#') then 

begin -C Falls keine Volume-Angabe, dann Prefix einsetzen > 
prefix.ad resse:=-22D08; 

filename:=concat(prefix.name ",' :',filename); 
end; 

for i:=l to length(filename) do < In Grossbuchstaben umwandeln > 
if ord(filenameCiD)>95 then 

filenameCiD:=chr(ord(filenameCiU)-32); 
writeln; 
end; 

procedure findefile; < Suchen, in welchem Laufwerk sich das File befindet > 
var filenrstring; 

■C Variablen zum Einlesen des Directorys > 
directory:diree; 
unitno:integer; 

procedure lese_dir; -C liest das Directory von der Unit #4 ein > 
var io:integer; -C Bei einem Disketten-Fehler wird das Programm verlassen > 

begin 
<tl-> 

unitread(unitno,directory,sizeof(directory),2); 

{$I+> 

io:=ioresult; 
if io<>0 then 
•C Fehler ! > 
begin 

writeln(chr(7)); < Beep > 
writeln('Fehler #',io); 

writeln( ; Directory von Unit ,unitno ,' nicht zu lesen'); 
exit(program) 
end; 

end; 

procedure findevolume; { Sucht Laufwerk indem der Volumename der > 
var volumerstring; { Diskette mit dem angebenen verglichen wird > 

begin 

if filenameClT =/ #' 
then 

begin ( Unit-Angabe anstatt Volume > 
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if pos(' :' , f i 1enameX>3 then { Nur Units 4 & 5 erlaubt > 
begin 

writeln('Fehler> Falsche Unitangabe'); 
exit(program); 
end; 

unitno:=ord(fi1enameC2T)-48; 

if not (unitno in C4,5T) then < Nur Units 4 & 5 erlaubt > 
begin 

writeln('Fehler> Falsche Unitangabe'); 
end; 

lese_dir; -C Directory einiesen > 
end 
eise 
begin 

volume:=copy(filename,l,pos(':',filename)-l); -C gesuchtes Volume > 

unitno:=4; { Zunaechst auf Unit 4 nachschauen > 

lese_dir; 

if directoryCOT .diskvoK >volume then 
begin 

unitno:=5; { Dann auf Unit 5 nachschauen > 
lese_dir; 

if directoryCOD.diskvoK>volume then 
begin i Nicht gefunden > 

writeln('Fehler: Volume nicht vorhanden'); 
exit(program); 
end; 

end; 

end; 

end; 

procedure findeentry; -C Festellen, in welchem Directoryeintrag > 
var filen:string; i sich die Angaben zu dem File befinden > 
i:integer; 

begin 

fi1en:=copy(fi1ename,pos(':',fi1ename)+1, 

length(filename)-pos(':',filename)); 

i:=0; 
repeat 
i:=i+l; 

until (directoryCiT.filename=filen) or (i>directoryCGT.fileno); 
if i>directoryCOT.fileno then 
begin 

writeln('Fehler> File nicht vorhanden'); 
exit(program); 
end; 

■C Ende des Textes feststellen > 

blockno:=directoryCiD.lastblock-directoryCiD.firstblock; 
lastbytes:=directoryCiD.endbytes; 
end; 

begin 

findevolume; 
findeentry; 
end; 

procedure fresetfn:string); < Oeffnet das File mit dem Namen 'N' > 

var dummy:integer; 

begin 

reset(f,n); 

dummy:=blockread(f,seite,2,2); < Erste Seite einiesen > 

bufferpointer:=0; -C Zeichenzeiger auf das erste Zeichen setzen > 
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blockpointer:=4; < Blockzeiger auf die naechste Seite im > 

end; -C File setzen > 

■C Den String 'S 7 aus dem File lesen > 

■C 7 ef' wird 7 true 7 , wenn das Ende des Textes erreicht ist > 
procedure freadln(var s:string; var ef:boolean); 
var n,no,start2,dummy:integer; 

begin 
s:= 7/ ; 
ef:=false; 

if (seiteCbufferpointerD=chr(0)) or 

(bufferpointer=1024) then { Eventuell naechste Seite einiesen > 
begin 

if blockpointer>=blockno then < Fileende erreicht > 
begin 

ef:=true; 
exit(f readln); 
end; 

dummy:=blockread(f,seite,2,blockpointer>; 
blockpointer:=blockpointer+2; 
buf ferpointer:=0; 
end; 

if (blockpointer>=blockno) and (bufferpointer>= lastbytes) then 
begin { Textende erreicht > 
ef:=true; 
exit(f readln); 
end; 

if seiteCbufferpointerD=chr(16) -C DLE !> 
then begin 

buf ferpointer:=buf ferpointer+1; 

n:=ord(seiteCbufferpointer3)-32; < Anzahl der Blanks holen > 
buf ferpointer:=buf ferpointer+1; 

if n>0 then s:=copy(leer,l ,n) ; -C Blank an den String setzen > 
end; 

no:=scan(1024,=chr(13),seiteCbufferpointerD); { Nach CR suchen > 
if no>0 then 
begin 

start2:=length(s); 

s:=concat(s,copy(leer,1,no)); < String zunaechst mit Blanks fuellen > 

moveleft(seiteCbufferpointerD,sCstart2+13,no); •( Tatsaechliche Zeichen > 
bufferpointer:=bufferpointer+no+1; < in den String bringen, und > 

end -C Zeichenzeiger korrigieren > 

eise bufferpointer:=bufferpointer+1; 

end; 

procedure fclose; -C File schliessen > 
begin 

close(f); 
end; 

procedure count; < Zaehlt Zeilen, Zeichen und Woerter > 
var s:stringC120D; 

endoffile:boolean; 
zaehler,zeiger,i:integer; 
begin 

< Werte auf 0 setzen > 

zeilenno:=G; 

zeichenno:=0; 

wortno:=0; 

zaehler:=0; 

repeat 
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f readln(s,endoffile); 

■C Bildschirmanzeige > 
if zaehler=5 
then begin 

for is =1 to 5 do 

writeCchrC 8 ),' ',chrC 8 )); 
zaehler:= 0 ; 
end 

eise begin 

write(); 
zaehler:=zaehler+1; 
end; 

if not endoffile then 
begin 

zeilenno:=zeilenno+l; < Zeile gezaehlt > 
if Zeichen then 

zeichenno:=zeichenno+lengthCs); < Zeichen gezaehlt > 

if woerter then 

if scanClengthCs),<>' ',s) <> length(s) then 
begin 

zeiger:-l; 
repeat 

< Zeiger auf Wortanfang setzen > 

zeiger:=zeiger+scanC 1 ength(s)-zeiger,<>' ',sCzeigerU); 
{ Wort zaehlen > 
if zeiger<=lengthCs) then 
wortno:=wortno+l 5 
■C Zeiger auf Wortende setzen > 

zeiger:=zeiger+scanClengthCs)-zeiger,=' ' ,sCzeiger!l) ; 
until zeiger>=length(s); 
end; 

end; 

until endoffile; 

■C Bildschirmanzeige korrigieren > 
if zeiger >0 then 

for i:= 1 to zaehler do 
writeCchrC 8 ),' ',chrC 8 )); 
writeln; 
end; 

procedure giveout; -C Ergebnisse ausgeben > 


begin 

writeln(chr( 12 )); 

writelnC'-'); 

writelnC' Ergebnis fuer* ',filename); 

writelnC'-'); 


writeln; 

writelnC'Zeilen : ',zeilenno); 
writeln; 
if Zeichen then 
begin 

writeC'Zeichen : zeichenno); 

if woerter then writelnC' Korrigiert : ',zeichenno-wortno) 
eise writeln; 

end; 

writeln; 
if woerter then 
begin 

writelnC'Woerter : wortno); 

writeln; 
end; 
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if seiten then 

writeln(' Seiten : ',(zeilenno div seitenzeilen)+l); 

end; 
begin 

■C Meer' initialisiern ( Meer' kann nicht als > 

{ Konstante definiert werden) > 

leer:=' '; 

leer:=concat(leer,leer,leer); 

•C Eingaben > 
inputoptions; 

if Czeilen=false) and (zei.chen=false) and 
Cwoerter-false) and <seiten=false) then 

exit,(program); -C Falls alle Fragen mit 'n' beantwortet wurden > 
inputname; 

< File suchen > 
findefile; 

■C File oeffnen und zaehlen > 
f reset(fi1ename); 
count; 
fclose; 

i Ergebnisse ausgeben > 
giveout; 
end. 


Die Benutzung des Programmes ergibt sich von selbst. Man startet es, 
gibt die erwarteten Eingaben und kann dann die Werte ablesen. Falls 
man das Programm aus Versehen gestartet hat, so gibt man einfach 
viermal hintereinander ein "n" ein, und das Programm wird 
abgebrochen. 

Da nach dem Programmlauf wieder die Kommandozeile von POS erscheint, 
sollte man sofort die Werte ablesen. Ein <ret> danach z.B. löscht 
bekanntlich den Bildschirm und damit auch die Informationen. 


Wichtige Variablen und Prozeduren 


”ZEILEN","ZEICHEN", 

"WOERTER","SEITEN" : Boolean-Variablen, die angeben, ob Zeilen, 

Zeichen etc. gezählt werden sollen 


"ZEILENNO", 

"ZEICHENNO","WORTNO" : Zähler für Zeilen, Zeichen und Wörter 

"SEITENZEILEN" : Gibt an, wieviele Zeilen sich auf einer 

Druckerseite befinden werden 


"INPUTOPTIONS" 


Fragt den Benutzer, was gezählt werden 
soll 


"INPUTNAME" 


"FINDEFILE" 


Fragt nach dem Namen des zu zählenden 
Files, und hängt eventuell den 
Volumenamen des Prefix an 

Sucht das File auf beiden Laufwerken und 
stellt fest, wie groß das File ist, und 
wieviele Zeichen im letzten Block gültig 
s ind 


"FRESET","FREADLN", 
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"FCLOSE" 

"COUNT" 

"GIVEOUT” 


Aus Kapitel 2.9 übernommen und 
modifiziert 

Zählt die gewünschten Werte für das File 
Gibt die Ergebnisse auf dem Bildschirm 
aus 
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Zu diesem Buch ist eine Diskette 

zusätzlich erhältlich 



Dieses Buch beseitigt die Schwachstellen von Apple-PASCAL. 
Es wendet sich an die Programmierer, denen die vorhandenen 
Möglichkeiten nicht ausreichen. Der PASCAL-Könner erhält 
weit über die Handbücher hinausgehende Informationen, und 
dem Anfänger wird durch fertige Listings und Routinen die 
Arbeit erleichtert. 

Die einzelnen Kapitel behandeln Utilities für das Betriebssy¬ 
stem, Spracherweiterungen, Grafik und Textverarbeitung. Es 
wird eingegangen auf den Aufbau des Directories und ver¬ 
schiedenen Filetypen, wobei auch ein neuer Filetyp, „FOTO", 
eingeführt wird. Weiterhin wird die Bearbeitung von DOS 3.3- 
Disketten unter PASCAL beschrieben. An Spracherweiterun¬ 
gen gibt es z.B. PEEK/POKE-Routinen oder Datumsverände¬ 
rung. Schließlich ist eine komplette Liste des internen System¬ 
routinen und deren Adressen vorhanden. Im Grafikteil wird u.a. 
ein Grafikeditor vorgestellt und die Benutzung der Blockgrafik 
in PASCAL-Programmen ermöglicht. Der Textverarbeitung¬ 
steil enthält z.B. ein erweiterbares Formatierprogramm und ein 
Hilfsprogramm zur Veränderung der Editor-Marken. 

In jedem der fast 30 Kapitel wird beschrieben, wieder jeweilige 
Trick realisiert wird, worauf sich ein abtippfertiges Listing an¬ 
schließt. 
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